home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Editors / emacs / Emacs-1.14b1 / lisp / shell.elc < prev    next >
MacBinary  |  1994-02-13  |  12.3 KB  |  [dELC/EMAC]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Combustion 2 Particle Library (other/combustion2ParticleLibrary) ext Unsupported
1% dexvert Emacs Compiled Lisp (other/emacsCompiledLisp) ext Unsupported
100% file MacBinary II, inited, Sun Feb 13 14:15:37 1994, modified Sun Feb 13 14:15:37 1994, creator 'EMAC', type 'dELC', 11932 bytes "shell.elc" Emacs v18 byte-compiled Lisp data, at 0x2f1c 316 bytes resource Emacs v18 byte-compiled Lisp data default (weak)
99% file data default
100% TrID MacBinary 2 default (weak)
100% lsar MacBinary default


id metadata
keyvalue
macFileType[dELC]
macFileCreator[EMAC]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 73 68 65 6c 6c 2e | 65 6c 63 00 00 00 00 00 |..shell.|elc.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 64 45 4c 43 45 4d 41 | 43 01 00 00 00 00 00 00 |.dELCEMA|C.......|
|00000050| 00 00 00 00 00 2e 9c 00 | 00 01 3c a9 84 2c d9 a9 |........|..<..,..|
|00000060| 84 2c d9 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.,......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ee a6 00 00 |........|........|
|00000080| 0a 28 70 72 6f 76 69 64 | 65 20 28 71 75 6f 74 65 |.(provid|e (quote|
|00000090| 20 73 68 65 6c 6c 29 29 | 0a 0a 28 64 65 66 76 61 | shell))|..(defva|
|000000a0| 72 20 6c 61 73 74 2d 69 | 6e 70 75 74 2d 73 74 61 |r last-i|nput-sta|
|000000b0| 72 74 20 6e 69 6c 20 22 | 5c 0a 49 6e 20 61 20 73 |rt nil "|\.In a s|
|000000c0| 68 65 6c 6c 2d 6d 6f 64 | 65 20 62 75 66 66 65 72 |hell-mod|e buffer|
|000000d0| 2c 20 6d 61 72 6b 65 72 | 20 66 6f 72 20 73 74 61 |, marker| for sta|
|000000e0| 72 74 20 6f 66 20 6c 61 | 73 74 20 75 6e 69 74 20 |rt of la|st unit |
|000000f0| 6f 66 20 69 6e 70 75 74 | 2e 22 29 0a 0a 28 64 65 |of input|.")..(de|
|00000100| 66 76 61 72 20 6c 61 73 | 74 2d 69 6e 70 75 74 2d |fvar las|t-input-|
|00000110| 65 6e 64 20 6e 69 6c 20 | 22 5c 0a 49 6e 20 61 20 |end nil |"\.In a |
|00000120| 73 68 65 6c 6c 2d 6d 6f | 64 65 20 62 75 66 66 65 |shell-mo|de buffe|
|00000130| 72 2c 20 6d 61 72 6b 65 | 72 20 66 6f 72 20 65 6e |r, marke|r for en|
|00000140| 64 20 6f 66 20 6c 61 73 | 74 20 75 6e 69 74 20 6f |d of las|t unit o|
|00000150| 66 20 69 6e 70 75 74 2e | 22 29 0a 0a 28 64 65 66 |f input.|")..(def|
|00000160| 76 61 72 20 73 68 65 6c | 6c 2d 6d 6f 64 65 2d 6d |var shel|l-mode-m|
|00000170| 61 70 20 6e 69 6c 29 0a | 0a 28 64 65 66 76 61 72 |ap nil).|.(defvar|
|00000180| 20 73 68 65 6c 6c 2d 64 | 69 72 65 63 74 6f 72 79 | shell-d|irectory|
|00000190| 2d 73 74 61 63 6b 20 6e | 69 6c 20 22 5c 0a 4c 69 |-stack n|il "\.Li|
|000001a0| 73 74 20 6f 66 20 64 69 | 72 65 63 74 6f 72 69 65 |st of di|rectorie|
|000001b0| 73 20 73 61 76 65 64 20 | 62 79 20 70 75 73 68 64 |s saved |by pushd|
|000001c0| 20 69 6e 20 74 68 69 73 | 20 62 75 66 66 65 72 27 | in this| buffer'|
|000001d0| 73 20 73 68 65 6c 6c 2e | 22 29 0a 0a 28 64 65 66 |s shell.|")..(def|
|000001e0| 76 61 72 20 73 68 65 6c | 6c 2d 70 6f 70 64 2d 72 |var shel|l-popd-r|
|000001f0| 65 67 65 78 70 20 22 70 | 6f 70 64 22 20 22 5c 0a |egexp "p|opd" "\.|
|00000200| 2a 52 65 67 65 78 70 20 | 74 6f 20 6d 61 74 63 68 |*Regexp |to match|
|00000210| 20 73 75 62 73 68 65 6c | 6c 20 63 6f 6d 6d 61 6e | subshel|l comman|
|00000220| 64 73 20 65 71 75 69 76 | 61 6c 65 6e 74 20 74 6f |ds equiv|alent to|
|00000230| 20 70 6f 70 64 2e 22 29 | 0a 0a 28 64 65 66 76 61 | popd.")|..(defva|
|00000240| 72 20 73 68 65 6c 6c 2d | 70 75 73 68 64 2d 72 65 |r shell-|pushd-re|
|00000250| 67 65 78 70 20 22 70 75 | 73 68 64 22 20 22 5c 0a |gexp "pu|shd" "\.|
|00000260| 2a 52 65 67 65 78 70 20 | 74 6f 20 6d 61 74 63 68 |*Regexp |to match|
|00000270| 20 73 75 62 73 68 65 6c | 6c 20 63 6f 6d 6d 61 6e | subshel|l comman|
|00000280| 64 73 20 65 71 75 69 76 | 61 6c 65 6e 74 20 74 6f |ds equiv|alent to|
|00000290| 20 70 75 73 68 64 2e 22 | 29 0a 0a 28 64 65 66 76 | pushd."|)..(defv|
|000002a0| 61 72 20 73 68 65 6c 6c | 2d 63 64 2d 72 65 67 65 |ar shell|-cd-rege|
|000002b0| 78 70 20 22 63 64 22 20 | 22 5c 0a 2a 52 65 67 65 |xp "cd" |"\.*Rege|
|000002c0| 78 70 20 74 6f 20 6d 61 | 74 63 68 20 73 75 62 73 |xp to ma|tch subs|
|000002d0| 68 65 6c 6c 20 63 6f 6d | 6d 61 6e 64 73 20 65 71 |hell com|mands eq|
|000002e0| 75 69 76 61 6c 65 6e 74 | 20 74 6f 20 63 64 2e 22 |uivalent| to cd."|
|000002f0| 29 0a 0a 28 64 65 66 76 | 61 72 20 65 78 70 6c 69 |)..(defv|ar expli|
|00000300| 63 69 74 2d 73 68 65 6c | 6c 2d 66 69 6c 65 2d 6e |cit-shel|l-file-n|
|00000310| 61 6d 65 20 6e 69 6c 20 | 22 5c 0a 2a 49 66 20 6e |ame nil |"\.*If n|
|00000320| 6f 6e 2d 6e 69 6c 2c 20 | 69 73 20 66 69 6c 65 20 |on-nil, |is file |
|00000330| 6e 61 6d 65 20 74 6f 20 | 75 73 65 20 66 6f 72 20 |name to |use for |
|00000340| 65 78 70 6c 69 63 69 74 | 6c 79 20 72 65 71 75 65 |explicit|ly reque|
|00000350| 73 74 65 64 20 69 6e 66 | 65 72 69 6f 72 20 73 68 |sted inf|erior sh|
|00000360| 65 6c 6c 2e 22 29 0a 0a | 28 64 65 66 75 6e 20 73 |ell.")..|(defun s|
|00000370| 68 65 6c 6c 2d 6d 6f 64 | 65 20 6e 69 6c 20 22 5c |hell-mod|e nil "\|
|00000380| 0a 4d 61 6a 6f 72 20 6d | 6f 64 65 20 66 6f 72 20 |.Major m|ode for |
|00000390| 69 6e 74 65 72 61 63 74 | 69 6e 67 20 77 69 74 68 |interact|ing with|
|000003a0| 20 61 6e 20 69 6e 66 65 | 72 69 6f 72 20 73 68 65 | an infe|rior she|
|000003b0| 6c 6c 2e 0a 53 68 65 6c | 6c 20 6e 61 6d 65 20 69 |ll..Shel|l name i|
|000003c0| 73 20 73 61 6d 65 20 61 | 73 20 62 75 66 66 65 72 |s same a|s buffer|
|000003d0| 20 6e 61 6d 65 2c 20 73 | 61 6e 73 20 74 68 65 20 | name, s|ans the |
|000003e0| 61 73 74 65 72 69 73 6b | 73 2e 0a 52 65 74 75 72 |asterisk|s..Retur|
|000003f0| 6e 20 61 74 20 65 6e 64 | 20 6f 66 20 62 75 66 66 |n at end| of buff|
|00000400| 65 72 20 73 65 6e 64 73 | 20 6c 69 6e 65 20 61 73 |er sends| line as|
|00000410| 20 69 6e 70 75 74 2e 0a | 52 65 74 75 72 6e 20 6e | input..|Return n|
|00000420| 6f 74 20 61 74 20 65 6e | 64 20 63 6f 70 69 65 73 |ot at en|d copies|
|00000430| 20 72 65 73 74 20 6f 66 | 20 6c 69 6e 65 20 74 6f | rest of| line to|
|00000440| 20 65 6e 64 20 61 6e 64 | 20 73 65 6e 64 73 20 69 | end and| sends i|
|00000450| 74 2e 0a 0a 54 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |t...The |followin|
|00000460| 67 20 63 6f 6d 6d 61 6e | 64 73 20 69 6d 69 74 61 |g comman|ds imita|
|00000470| 74 65 20 74 68 65 20 75 | 73 75 61 6c 20 55 6e 69 |te the u|sual Uni|
|00000480| 78 20 69 6e 74 65 72 72 | 75 70 74 20 61 6e 64 0a |x interr|upt and.|
|00000490| 65 64 69 74 69 6e 67 20 | 63 6f 6e 74 72 6f 6c 20 |editing |control |
|000004a0| 63 68 61 72 61 63 74 65 | 72 73 3a 0a 5c 5c 7b 73 |characte|rs:.\\{s|
|000004b0| 68 65 6c 6c 2d 6d 6f 64 | 65 2d 6d 61 70 7d 0a 0a |hell-mod|e-map}..|
|000004c0| 45 6e 74 72 79 20 74 6f | 20 74 68 69 73 20 6d 6f |Entry to| this mo|
|000004d0| 64 65 20 63 61 6c 6c 73 | 20 74 68 65 20 76 61 6c |de calls| the val|
|000004e0| 75 65 20 6f 66 20 73 68 | 65 6c 6c 2d 6d 6f 64 65 |ue of sh|ell-mode|
|000004f0| 2d 68 6f 6f 6b 20 77 69 | 74 68 20 6e 6f 20 61 72 |-hook wi|th no ar|
|00000500| 67 73 2c 0a 69 66 20 74 | 68 61 74 20 76 61 6c 75 |gs,.if t|hat valu|
|00000510| 65 20 69 73 20 6e 6f 6e | 2d 6e 69 6c 2e 0a 0a 63 |e is non|-nil...c|
|00000520| 64 2c 20 70 75 73 68 64 | 20 61 6e 64 20 70 6f 70 |d, pushd| and pop|
|00000530| 64 20 63 6f 6d 6d 61 6e | 64 73 20 67 69 76 65 6e |d comman|ds given|
|00000540| 20 74 6f 20 74 68 65 20 | 73 68 65 6c 6c 20 61 72 | to the |shell ar|
|00000550| 65 20 77 61 74 63 68 65 | 64 0a 62 79 20 45 6d 61 |e watche|d.by Ema|
|00000560| 63 73 20 74 6f 20 6b 65 | 65 70 20 74 68 69 73 20 |cs to ke|ep this |
|00000570| 62 75 66 66 65 72 27 73 | 20 64 65 66 61 75 6c 74 |buffer's| default|
|00000580| 20 64 69 72 65 63 74 6f | 72 79 0a 74 68 65 20 73 | directo|ry.the s|
|00000590| 61 6d 65 20 61 73 20 74 | 68 65 20 73 68 65 6c 6c |ame as t|he shell|
|000005a0| 27 73 20 77 6f 72 6b 69 | 6e 67 20 64 69 72 65 63 |'s worki|ng direc|
|000005b0| 74 6f 72 79 2e 0a 56 61 | 72 69 61 62 6c 65 73 20 |tory..Va|riables |
|000005c0| 73 68 65 6c 6c 2d 63 64 | 2d 72 65 67 65 78 70 2c |shell-cd|-regexp,|
|000005d0| 20 73 68 65 6c 6c 2d 70 | 75 73 68 64 2d 72 65 67 | shell-p|ushd-reg|
|000005e0| 65 78 70 20 61 6e 64 20 | 73 68 65 6c 6c 2d 70 6f |exp and |shell-po|
|000005f0| 70 64 2d 72 65 67 65 78 | 70 0a 61 72 65 20 75 73 |pd-regex|p.are us|
|00000600| 65 64 20 74 6f 20 6d 61 | 74 63 68 20 74 68 65 73 |ed to ma|tch thes|
|00000610| 65 20 63 6f 6d 6d 61 6e | 64 20 6e 61 6d 65 73 2e |e comman|d names.|
|00000620| 0a 0a 59 6f 75 20 63 61 | 6e 20 73 65 6e 64 20 74 |..You ca|n send t|
|00000630| 65 78 74 20 74 6f 20 74 | 68 65 20 73 68 65 6c 6c |ext to t|he shell|
|00000640| 20 28 6f 72 20 69 74 73 | 20 73 75 62 6a 6f 62 73 | (or its| subjobs|
|00000650| 29 20 66 72 6f 6d 20 6f | 74 68 65 72 20 62 75 66 |) from o|ther buf|
|00000660| 66 65 72 73 0a 75 73 69 | 6e 67 20 74 68 65 20 63 |fers.usi|ng the c|
|00000670| 6f 6d 6d 61 6e 64 73 20 | 70 72 6f 63 65 73 73 2d |ommands |process-|
|00000680| 73 65 6e 64 2d 72 65 67 | 69 6f 6e 2c 20 70 72 6f |send-reg|ion, pro|
|00000690| 63 65 73 73 2d 73 65 6e | 64 2d 73 74 72 69 6e 67 |cess-sen|d-string|
|000006a0| 0a 61 6e 64 20 6c 69 73 | 70 2d 73 65 6e 64 2d 64 |.and lis|p-send-d|
|000006b0| 65 66 75 6e 2e 22 20 28 | 69 6e 74 65 72 61 63 74 |efun." (|interact|
|000006c0| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|000006d0| 22 c5 88 c8 20 88 c9 89 | 10 88 ca 89 11 88 cb 89 |"... ...|........|
|000006e0| 12 88 cc 0b 21 88 cd c4 | 21 88 c5 89 14 88 cd c6 |....!...|!.......|
|000006f0| 21 88 ce 20 89 16 06 88 | cd c7 21 88 ce 20 89 16 |!.. ....|..!.. ..|
|00000700| 07 88 cf d0 21 87 22 20 | 5b 6d 61 6a 6f 72 2d 6d |....!." |[major-m|
|00000710| 6f 64 65 20 6d 6f 64 65 | 2d 6e 61 6d 65 20 6d 6f |ode mode|-name mo|
|00000720| 64 65 2d 6c 69 6e 65 2d | 70 72 6f 63 65 73 73 20 |de-line-|process |
|00000730| 73 68 65 6c 6c 2d 6d 6f | 64 65 2d 6d 61 70 20 73 |shell-mo|de-map s|
|00000740| 68 65 6c 6c 2d 64 69 72 | 65 63 74 6f 72 79 2d 73 |hell-dir|ectory-s|
|00000750| 74 61 63 6b 20 6e 69 6c | 20 6c 61 73 74 2d 69 6e |tack nil| last-in|
|00000760| 70 75 74 2d 73 74 61 72 | 74 20 6c 61 73 74 2d 69 |put-star|t last-i|
|00000770| 6e 70 75 74 2d 65 6e 64 | 20 6b 69 6c 6c 2d 61 6c |nput-end| kill-al|
|00000780| 6c 2d 6c 6f 63 61 6c 2d | 76 61 72 69 61 62 6c 65 |l-local-|variable|
|00000790| 73 20 73 68 65 6c 6c 2d | 6d 6f 64 65 20 22 53 68 |s shell-|mode "Sh|
|000007a0| 65 6c 6c 22 20 28 22 3a | 20 25 73 22 29 20 75 73 |ell" (":| %s") us|
|000007b0| 65 2d 6c 6f 63 61 6c 2d | 6d 61 70 20 6d 61 6b 65 |e-local-|map make|
|000007c0| 2d 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 20 |-local-v|ariable |
|000007d0| 6d 61 6b 65 2d 6d 61 72 | 6b 65 72 20 72 75 6e 2d |make-mar|ker run-|
|000007e0| 68 6f 6f 6b 73 20 73 68 | 65 6c 6c 2d 6d 6f 64 65 |hooks sh|ell-mode|
|000007f0| 2d 68 6f 6f 6b 5d 20 39 | 29 29 0a 0a 28 69 66 20 |-hook] 9|))..(if |
|00000800| 73 68 65 6c 6c 2d 6d 6f | 64 65 2d 6d 61 70 20 6e |shell-mo|de-map n|
|00000810| 69 6c 20 28 73 65 74 71 | 20 73 68 65 6c 6c 2d 6d |il (setq| shell-m|
|00000820| 6f 64 65 2d 6d 61 70 20 | 28 6d 61 6b 65 2d 73 70 |ode-map |(make-sp|
|00000830| 61 72 73 65 2d 6b 65 79 | 6d 61 70 29 29 20 28 64 |arse-key|map)) (d|
|00000840| 65 66 69 6e 65 2d 6b 65 | 79 20 73 68 65 6c 6c 2d |efine-ke|y shell-|
|00000850| 6d 6f 64 65 2d 6d 61 70 | 20 22 0d 22 20 28 71 75 |mode-map| "." (qu|
|00000860| 6f 74 65 20 73 68 65 6c | 6c 2d 73 65 6e 64 2d 69 |ote shel|l-send-i|
|00000870| 6e 70 75 74 29 29 20 28 | 64 65 66 69 6e 65 2d 6b |nput)) (|define-k|
|00000880| 65 79 20 73 68 65 6c 6c | 2d 6d 6f 64 65 2d 6d 61 |ey shell|-mode-ma|
|00000890| 70 20 22 03 04 22 20 28 | 71 75 6f 74 65 20 73 68 |p ".." (|quote sh|
|000008a0| 65 6c 6c 2d 73 65 6e 64 | 2d 65 6f 66 29 29 20 28 |ell-send|-eof)) (|
|000008b0| 64 65 66 69 6e 65 2d 6b | 65 79 20 73 68 65 6c 6c |define-k|ey shell|
|000008c0| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 03 15 22 20 28 |-mode-ma|p ".." (|
|000008d0| 71 75 6f 74 65 20 6b 69 | 6c 6c 2d 73 68 65 6c 6c |quote ki|ll-shell|
|000008e0| 2d 69 6e 70 75 74 29 29 | 20 28 64 65 66 69 6e 65 |-input))| (define|
|000008f0| 2d 6b 65 79 20 73 68 65 | 6c 6c 2d 6d 6f 64 65 2d |-key she|ll-mode-|
|00000900| 6d 61 70 20 22 03 17 22 | 20 28 71 75 6f 74 65 20 |map ".."| (quote |
|00000910| 62 61 63 6b 77 61 72 64 | 2d 6b 69 6c 6c 2d 77 6f |backward|-kill-wo|
|00000920| 72 64 29 29 20 28 64 65 | 66 69 6e 65 2d 6b 65 79 |rd)) (de|fine-key|
|00000930| 20 73 68 65 6c 6c 2d 6d | 6f 64 65 2d 6d 61 70 20 | shell-m|ode-map |
|00000940| 22 03 03 22 20 28 71 75 | 6f 74 65 20 69 6e 74 65 |".." (qu|ote inte|
|00000950| 72 72 75 70 74 2d 73 68 | 65 6c 6c 2d 73 75 62 6a |rrupt-sh|ell-subj|
|00000960| 6f 62 29 29 20 28 64 65 | 66 69 6e 65 2d 6b 65 79 |ob)) (de|fine-key|
|00000970| 20 73 68 65 6c 6c 2d 6d | 6f 64 65 2d 6d 61 70 20 | shell-m|ode-map |
|00000980| 22 03 1a 22 20 28 71 75 | 6f 74 65 20 73 74 6f 70 |".." (qu|ote stop|
|00000990| 2d 73 68 65 6c 6c 2d 73 | 75 62 6a 6f 62 29 29 20 |-shell-s|ubjob)) |
|000009a0| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 73 68 65 6c |(define-|key shel|
|000009b0| 6c 2d 6d 6f 64 65 2d 6d | 61 70 20 22 03 1c 22 20 |l-mode-m|ap ".." |
|000009c0| 28 71 75 6f 74 65 20 71 | 75 69 74 2d 73 68 65 6c |(quote q|uit-shel|
|000009d0| 6c 2d 73 75 62 6a 6f 62 | 29 29 20 28 64 65 66 69 |l-subjob|)) (defi|
|000009e0| 6e 65 2d 6b 65 79 20 73 | 68 65 6c 6c 2d 6d 6f 64 |ne-key s|hell-mod|
|000009f0| 65 2d 6d 61 70 20 22 03 | 0f 22 20 28 71 75 6f 74 |e-map ".|." (quot|
|00000a00| 65 20 6b 69 6c 6c 2d 6f | 75 74 70 75 74 2d 66 72 |e kill-o|utput-fr|
|00000a10| 6f 6d 2d 73 68 65 6c 6c | 29 29 20 28 64 65 66 69 |om-shell|)) (defi|
|00000a20| 6e 65 2d 6b 65 79 20 73 | 68 65 6c 6c 2d 6d 6f 64 |ne-key s|hell-mod|
|00000a30| 65 2d 6d 61 70 20 22 03 | 12 22 20 28 71 75 6f 74 |e-map ".|." (quot|
|00000a40| 65 20 73 68 6f 77 2d 6f | 75 74 70 75 74 2d 66 72 |e show-o|utput-fr|
|00000a50| 6f 6d 2d 73 68 65 6c 6c | 29 29 20 28 64 65 66 69 |om-shell|)) (defi|
|00000a60| 6e 65 2d 6b 65 79 20 73 | 68 65 6c 6c 2d 6d 6f 64 |ne-key s|hell-mod|
|00000a70| 65 2d 6d 61 70 20 22 03 | 19 22 20 28 71 75 6f 74 |e-map ".|." (quot|
|00000a80| 65 20 63 6f 70 79 2d 6c | 61 73 74 2d 73 68 65 6c |e copy-l|ast-shel|
|00000a90| 6c 2d 69 6e 70 75 74 29 | 29 29 0a 0a 28 64 65 66 |l-input)|))..(def|
|00000aa0| 76 61 72 20 65 78 70 6c | 69 63 69 74 2d 63 73 68 |var expl|icit-csh|
|00000ab0| 2d 61 72 67 73 20 28 69 | 66 20 28 65 71 20 73 79 |-args (i|f (eq sy|
|00000ac0| 73 74 65 6d 2d 74 79 70 | 65 20 28 71 75 6f 74 65 |stem-typ|e (quote|
|00000ad0| 20 68 70 75 78 29 29 20 | 28 71 75 6f 74 65 20 28 | hpux)) |(quote (|
|00000ae0| 22 2d 69 22 20 22 2d 54 | 22 29 29 20 28 71 75 6f |"-i" "-T|")) (quo|
|00000af0| 74 65 20 28 22 2d 69 22 | 29 29 29 20 22 5c 0a 41 |te ("-i"|))) "\.A|
|00000b00| 72 67 73 20 70 61 73 73 | 65 64 20 74 6f 20 69 6e |rgs pass|ed to in|
|00000b10| 66 65 72 69 6f 72 20 73 | 68 65 6c 6c 20 62 79 20 |ferior s|hell by |
|00000b20| 4d 2d 78 20 73 68 65 6c | 6c 2c 20 69 66 20 74 68 |M-x shel|l, if th|
|00000b30| 65 20 73 68 65 6c 6c 20 | 69 73 20 63 73 68 2e 0a |e shell |is csh..|
|00000b40| 56 61 6c 75 65 20 69 73 | 20 61 20 6c 69 73 74 20 |Value is| a list |
|00000b50| 6f 66 20 73 74 72 69 6e | 67 73 2c 20 77 68 69 63 |of strin|gs, whic|
|00000b60| 68 20 6d 61 79 20 62 65 | 20 6e 69 6c 2e 22 29 0a |h may be| nil.").|
|00000b70| 0a 28 64 65 66 75 6e 20 | 73 68 65 6c 6c 20 6e 69 |.(defun |shell ni|
|00000b80| 6c 20 22 5c 0a 52 75 6e | 20 61 6e 20 69 6e 66 65 |l "\.Run| an infe|
|00000b90| 72 69 6f 72 20 73 68 65 | 6c 6c 2c 20 77 69 74 68 |rior she|ll, with|
|00000ba0| 20 49 2f 4f 20 74 68 72 | 6f 75 67 68 20 62 75 66 | I/O thr|ough buf|
|00000bb0| 66 65 72 20 2a 73 68 65 | 6c 6c 2a 2e 0a 49 66 20 |fer *she|ll*..If |
|00000bc0| 62 75 66 66 65 72 20 65 | 78 69 73 74 73 20 62 75 |buffer e|xists bu|
|00000bd0| 74 20 73 68 65 6c 6c 20 | 70 72 6f 63 65 73 73 20 |t shell |process |
|00000be0| 69 73 20 6e 6f 74 20 72 | 75 6e 6e 69 6e 67 2c 20 |is not r|unning, |
|00000bf0| 6d 61 6b 65 20 6e 65 77 | 20 73 68 65 6c 6c 2e 0a |make new| shell..|
|00000c00| 50 72 6f 67 72 61 6d 20 | 75 73 65 64 20 63 6f 6d |Program |used com|
|00000c10| 65 73 20 66 72 6f 6d 20 | 76 61 72 69 61 62 6c 65 |es from |variable|
|00000c20| 20 65 78 70 6c 69 63 69 | 74 2d 73 68 65 6c 6c 2d | explici|t-shell-|
|00000c30| 66 69 6c 65 2d 6e 61 6d | 65 2c 0a 20 6f 72 20 28 |file-nam|e,. or (|
|00000c40| 69 66 20 74 68 61 74 20 | 69 73 20 6e 69 6c 29 20 |if that |is nil) |
|00000c50| 66 72 6f 6d 20 74 68 65 | 20 45 53 48 45 4c 4c 20 |from the| ESHELL |
|00000c60| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 20 76 61 72 69 |environm|ent vari|
|00000c70| 61 62 6c 65 2c 0a 20 6f | 72 20 65 6c 73 65 20 66 |able,. o|r else f|
|00000c80| 72 6f 6d 20 53 48 45 4c | 4c 20 69 66 20 74 68 65 |rom SHEL|L if the|
|00000c90| 72 65 20 69 73 20 6e 6f | 20 45 53 48 45 4c 4c 2e |re is no| ESHELL.|
|00000ca0| 0a 49 66 20 61 20 66 69 | 6c 65 20 7e 2f 2e 65 6d |.If a fi|le ~/.em|
|00000cb0| 61 63 73 5f 53 48 45 4c | 4c 4e 41 4d 45 20 65 78 |acs_SHEL|LNAME ex|
|00000cc0| 69 73 74 73 2c 20 69 74 | 20 69 73 20 67 69 76 65 |ists, it| is give|
|00000cd0| 6e 20 61 73 20 69 6e 69 | 74 69 61 6c 20 69 6e 70 |n as ini|tial inp|
|00000ce0| 75 74 0a 20 28 4e 6f 74 | 65 20 74 68 61 74 20 74 |ut. (Not|e that t|
|00000cf0| 68 69 73 20 6d 61 79 20 | 6c 6f 73 65 20 64 75 65 |his may |lose due|
|00000d00| 20 74 6f 20 61 20 74 69 | 6d 69 6e 67 20 65 72 72 | to a ti|ming err|
|00000d10| 6f 72 20 69 66 20 74 68 | 65 20 73 68 65 6c 6c 0a |or if th|e shell.|
|00000d20| 20 20 64 69 73 63 61 72 | 64 73 20 69 6e 70 75 74 |  discar|ds input|
|00000d30| 20 77 68 65 6e 20 69 74 | 20 73 74 61 72 74 73 20 | when it| starts |
|00000d40| 75 70 2e 29 0a 54 68 65 | 20 62 75 66 66 65 72 20 |up.).The| buffer |
|00000d50| 69 73 20 70 75 74 20 69 | 6e 20 73 68 65 6c 6c 2d |is put i|n shell-|
|00000d60| 6d 6f 64 65 2c 20 67 69 | 76 69 6e 67 20 63 6f 6d |mode, gi|ving com|
|00000d70| 6d 61 6e 64 73 20 66 6f | 72 20 73 65 6e 64 69 6e |mands fo|r sendin|
|00000d80| 67 20 69 6e 70 75 74 0a | 61 6e 64 20 63 6f 6e 74 |g input.|and cont|
|00000d90| 72 6f 6c 6c 69 6e 67 20 | 74 68 65 20 73 75 62 6a |rolling |the subj|
|00000da0| 6f 62 73 20 6f 66 20 74 | 68 65 20 73 68 65 6c 6c |obs of t|he shell|
|00000db0| 2e 20 20 53 65 65 20 73 | 68 65 6c 6c 2d 6d 6f 64 |.  See s|hell-mod|
|00000dc0| 65 2e 0a 53 65 65 20 61 | 6c 73 6f 20 76 61 72 69 |e..See a|lso vari|
|00000dd0| 61 62 6c 65 20 73 68 65 | 6c 6c 2d 70 72 6f 6d 70 |able she|ll-promp|
|00000de0| 74 2d 70 61 74 74 65 72 | 6e 2e 0a 0a 54 68 65 20 |t-patter|n...The |
|00000df0| 73 68 65 6c 6c 20 66 69 | 6c 65 20 6e 61 6d 65 20 |shell fi|le name |
|00000e00| 28 73 61 6e 73 20 64 69 | 72 65 63 74 6f 72 69 65 |(sans di|rectorie|
|00000e10| 73 29 20 69 73 20 75 73 | 65 64 20 74 6f 20 6d 61 |s) is us|ed to ma|
|00000e20| 6b 65 20 61 20 73 79 6d | 62 6f 6c 20 6e 61 6d 65 |ke a sym|bol name|
|00000e30| 0a 73 75 63 68 20 61 73 | 20 60 65 78 70 6c 69 63 |.such as| `explic|
|00000e40| 69 74 2d 63 73 68 2d 61 | 72 67 75 6d 65 6e 74 73 |it-csh-a|rguments|
|00000e50| 27 2e 20 20 49 66 20 74 | 68 61 74 20 73 79 6d 62 |'.  If t|hat symb|
|00000e60| 6f 6c 20 69 73 20 61 20 | 76 61 72 69 61 62 6c 65 |ol is a |variable|
|00000e70| 2c 0a 69 74 73 20 76 61 | 6c 75 65 20 69 73 20 75 |,.its va|lue is u|
|00000e80| 73 65 64 20 61 73 20 61 | 20 6c 69 73 74 20 6f 66 |sed as a| list of|
|00000e90| 20 61 72 67 75 6d 65 6e | 74 73 20 77 68 65 6e 20 | argumen|ts when |
|00000ea0| 69 6e 76 6f 6b 69 6e 67 | 20 74 68 65 20 73 68 65 |invoking| the she|
|00000eb0| 6c 6c 2e 0a 4f 74 68 65 | 72 77 69 73 65 2c 20 6f |ll..Othe|rwise, o|
|00000ec0| 6e 65 20 61 72 67 75 6d | 65 6e 74 20 60 2d 69 27 |ne argum|ent `-i'|
|00000ed0| 20 69 73 20 70 61 73 73 | 65 64 20 74 6f 20 74 68 | is pass|ed to th|
|00000ee0| 65 20 73 68 65 6c 6c 2e | 0a 0a 4e 6f 74 65 20 74 |e shell.|..Note t|
|00000ef0| 68 61 74 20 6d 61 6e 79 | 20 70 65 6f 70 6c 65 27 |hat many| people'|
|00000f00| 73 20 2e 63 73 68 72 63 | 20 66 69 6c 65 73 20 75 |s .cshrc| files u|
|00000f10| 6e 63 6f 6e 64 69 74 69 | 6f 6e 61 6c 6c 79 20 63 |nconditi|onally c|
|00000f20| 6c 65 61 72 20 74 68 65 | 20 70 72 6f 6d 70 74 2e |lear the| prompt.|
|00000f30| 0a 49 66 20 79 6f 75 72 | 73 20 64 6f 65 73 2c 20 |.If your|s does, |
|00000f40| 79 6f 75 20 77 69 6c 6c | 20 70 72 6f 62 61 62 6c |you will| probabl|
|00000f50| 79 20 77 61 6e 74 20 74 | 6f 20 63 68 61 6e 67 65 |y want t|o change|
|00000f60| 20 69 74 2e 22 20 28 69 | 6e 74 65 72 61 63 74 69 | it." (i|nteracti|
|00000f70| 76 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve) (byt|e-code "|
|00000f80| c4 88 09 86 13 00 c5 c6 | 21 86 13 00 c5 c7 21 86 |........|!.....!.|
|00000f90| 13 00 c8 18 c9 08 21 1a | ca cb cc cd 08 ce cf 0a |......!.|........|
|00000fa0| 50 21 85 28 00 cf 0a 50 | d0 d1 0a d2 51 21 1b 0b |P!.(...P|....Q!..|
|00000fb0| 85 36 00 d3 0b 21 83 3e | 00 0b 4a 82 3f 00 d4 29 |.6...!.>|..J.?..)|
|00000fc0| 25 21 2a 87 22 20 5b 70 | 72 6f 67 20 65 78 70 6c |%!*." [p|rog expl|
|00000fd0| 69 63 69 74 2d 73 68 65 | 6c 6c 2d 66 69 6c 65 2d |icit-she|ll-file-|
|00000fe0| 6e 61 6d 65 20 6e 61 6d | 65 20 73 79 6d 62 6f 6c |name nam|e symbol|
|00000ff0| 20 6e 69 6c 20 67 65 74 | 65 6e 76 20 22 45 53 48 | nil get|env "ESH|
|00001000| 45 4c 4c 22 20 22 53 48 | 45 4c 4c 22 20 22 2f 62 |ELL" "SH|ELL" "/b|
|00001010| 69 6e 2f 73 68 22 20 66 | 69 6c 65 2d 6e 61 6d 65 |in/sh" f|ile-name|
|00001020| 2d 6e 6f 6e 64 69 72 65 | 63 74 6f 72 79 20 73 77 |-nondire|ctory sw|
|00001030| 69 74 63 68 2d 74 6f 2d | 62 75 66 66 65 72 20 61 |itch-to-|buffer a|
|00001040| 70 70 6c 79 20 6d 61 6b | 65 2d 73 68 65 6c 6c 20 |pply mak|e-shell |
|00001050| 22 73 68 65 6c 6c 22 20 | 66 69 6c 65 2d 65 78 69 |"shell" |file-exi|
|00001060| 73 74 73 2d 70 20 22 7e | 2f 2e 65 6d 61 63 73 5f |sts-p "~|/.emacs_|
|00001070| 22 20 69 6e 74 65 72 6e | 2d 73 6f 66 74 20 22 65 |" intern|-soft "e|
|00001080| 78 70 6c 69 63 69 74 2d | 22 20 22 2d 61 72 67 73 |xplicit-|" "-args|
|00001090| 22 20 62 6f 75 6e 64 70 | 20 28 22 2d 69 22 29 5d |" boundp| ("-i")]|
|000010a0| 20 31 34 29 29 0a 0a 28 | 64 65 66 75 6e 20 6d 61 | 14))..(|defun ma|
|000010b0| 6b 65 2d 73 68 65 6c 6c | 20 28 6e 61 6d 65 20 70 |ke-shell| (name p|
|000010c0| 72 6f 67 72 61 6d 20 26 | 6f 70 74 69 6f 6e 61 6c |rogram &|optional|
|000010d0| 20 73 74 61 72 74 66 69 | 6c 65 20 26 72 65 73 74 | startfi|le &rest|
|000010e0| 20 73 77 69 74 63 68 65 | 73 29 20 28 62 79 74 65 | switche|s) (byte|
|000010f0| 2d 63 6f 64 65 20 22 cb | cc 09 cc 51 21 c5 c5 c5 |-code ".|...Q!...|
|00001100| 1c 1b 1a 18 cd 08 21 89 | 12 88 0a 85 1c 00 ce 0a |......!.|........|
|00001110| 21 89 13 88 8a 08 71 88 | 0b cf 3e 83 2b 00 c5 82 |!.....q.|..>.+...|
|00001120| 7d 00 0a 85 32 00 d0 0a | 21 88 d1 d2 09 08 0e 06 |}...2...|!.......|
|00001130| 86 4e 00 0e 07 86 4e 00 | d3 d4 21 86 4e 00 d3 d5 |.N....N.|..!.N...|
|00001140| 21 86 4e 00 d6 0e 08 25 | 89 12 88 0e 09 85 77 00 |!.N....%|......w.|
|00001150| d7 d8 21 88 64 62 88 d9 | 0e 09 21 88 da 60 64 5c |..!.db..|..!..`d\|
|00001160| 22 89 16 09 88 db 60 64 | 5c 22 88 dc 0a 0e 09 5c |".....`d|\".....\|
|00001170| 22 88 dd 0a 21 89 11 88 | 64 62 88 de df 0a 21 60 |"...!...|db....!`|
|00001180| 5c 22 88 0e 0a e0 3d 86 | 91 00 e0 20 29 88 08 2c |\"....=.|... )..,|
|00001190| 87 22 20 5b 62 75 66 66 | 65 72 20 6e 61 6d 65 20 |." [buff|er name |
|000011a0| 70 72 6f 63 20 73 74 61 | 74 75 73 20 73 69 7a 65 |proc sta|tus size|
|000011b0| 20 6e 69 6c 20 70 72 6f | 67 72 61 6d 20 65 78 70 | nil pro|gram exp|
|000011c0| 6c 69 63 69 74 2d 73 68 | 65 6c 6c 2d 66 69 6c 65 |licit-sh|ell-file|
|000011d0| 2d 6e 61 6d 65 20 73 77 | 69 74 63 68 65 73 20 73 |-name sw|itches s|
|000011e0| 74 61 72 74 66 69 6c 65 | 20 6d 61 6a 6f 72 2d 6d |tartfile| major-m|
|000011f0| 6f 64 65 20 67 65 74 2d | 62 75 66 66 65 72 2d 63 |ode get-|buffer-c|
|00001200| 72 65 61 74 65 20 22 2a | 22 20 67 65 74 2d 62 75 |reate "*|" get-bu|
|00001210| 66 66 65 72 2d 70 72 6f | 63 65 73 73 20 70 72 6f |ffer-pro|cess pro|
|00001220| 63 65 73 73 2d 73 74 61 | 74 75 73 20 28 72 75 6e |cess-sta|tus (run|
|00001230| 20 73 74 6f 70 29 20 64 | 65 6c 65 74 65 2d 70 72 | stop) d|elete-pr|
|00001240| 6f 63 65 73 73 20 61 70 | 70 6c 79 20 73 74 61 72 |ocess ap|ply star|
|00001250| 74 2d 70 72 6f 63 65 73 | 73 20 67 65 74 65 6e 76 |t-proces|s getenv|
|00001260| 20 22 45 53 48 45 4c 4c | 22 20 22 53 48 45 4c 4c | "ESHELL|" "SHELL|
|00001270| 22 20 22 2f 62 69 6e 2f | 73 68 22 20 73 6c 65 65 |" "/bin/|sh" slee|
|00001280| 70 2d 66 6f 72 20 31 20 | 69 6e 73 65 72 74 2d 66 |p-for 1 |insert-f|
|00001290| 69 6c 65 2d 63 6f 6e 74 | 65 6e 74 73 20 62 75 66 |ile-cont|ents buf|
|000012a0| 66 65 72 2d 73 75 62 73 | 74 72 69 6e 67 20 64 65 |fer-subs|tring de|
|000012b0| 6c 65 74 65 2d 72 65 67 | 69 6f 6e 20 70 72 6f 63 |lete-reg|ion proc|
|000012c0| 65 73 73 2d 73 65 6e 64 | 2d 73 74 72 69 6e 67 20 |ess-send|-string |
|000012d0| 70 72 6f 63 65 73 73 2d | 6e 61 6d 65 20 73 65 74 |process-|name set|
|000012e0| 2d 6d 61 72 6b 65 72 20 | 70 72 6f 63 65 73 73 2d |-marker |process-|
|000012f0| 6d 61 72 6b 20 73 68 65 | 6c 6c 2d 6d 6f 64 65 5d |mark she|ll-mode]|
|00001300| 20 31 37 29 29 0a 0a 28 | 64 65 66 76 61 72 20 73 | 17))..(|defvar s|
|00001310| 68 65 6c 6c 2d 73 65 74 | 2d 64 69 72 65 63 74 6f |hell-set|-directo|
|00001320| 72 79 2d 65 72 72 6f 72 | 2d 68 6f 6f 6b 20 28 71 |ry-error|-hook (q|
|00001330| 75 6f 74 65 20 69 67 6e | 6f 72 65 29 20 22 5c 0a |uote ign|ore) "\.|
|00001340| 46 75 6e 63 74 69 6f 6e | 20 63 61 6c 6c 65 64 20 |Function| called |
|00001350| 77 69 74 68 20 6e 6f 20 | 61 72 67 75 6d 65 6e 74 |with no |argument|
|00001360| 73 20 77 68 65 6e 20 73 | 68 65 6c 6c 2d 73 65 6e |s when s|hell-sen|
|00001370| 64 2d 69 6e 70 75 74 0a | 72 65 63 6f 67 6e 69 7a |d-input.|recogniz|
|00001380| 65 73 20 61 20 63 68 61 | 6e 67 65 2d 64 69 72 65 |es a cha|nge-dire|
|00001390| 63 74 6f 72 79 20 63 6f | 6d 6d 61 6e 64 20 62 75 |ctory co|mmand bu|
|000013a0| 74 20 67 65 74 73 20 61 | 6e 20 65 72 72 6f 72 0a |t gets a|n error.|
|000013b0| 74 72 79 69 6e 67 20 74 | 6f 20 63 68 61 6e 67 65 |trying t|o change|
|000013c0| 20 45 6d 61 63 73 27 73 | 20 64 65 66 61 75 6c 74 | Emacs's| default|
|000013d0| 20 64 69 72 65 63 74 6f | 72 79 2e 22 29 0a 0a 28 | directo|ry.")..(|
|000013e0| 64 65 66 75 6e 20 73 68 | 65 6c 6c 2d 73 65 6e 64 |defun sh|ell-send|
|000013f0| 2d 69 6e 70 75 74 20 6e | 69 6c 20 22 5c 0a 53 65 |-input n|il "\.Se|
|00001400| 6e 64 20 69 6e 70 75 74 | 20 74 6f 20 73 75 62 73 |nd input| to subs|
|00001410| 68 65 6c 6c 2e 0a 41 74 | 20 65 6e 64 20 6f 66 20 |hell..At| end of |
|00001420| 62 75 66 66 65 72 2c 20 | 73 65 6e 64 73 20 61 6c |buffer, |sends al|
|00001430| 6c 20 74 65 78 74 20 61 | 66 74 65 72 20 6c 61 73 |l text a|fter las|
|00001440| 74 20 6f 75 74 70 75 74 | 0a 20 61 73 20 69 6e 70 |t output|. as inp|
|00001450| 75 74 20 74 6f 20 74 68 | 65 20 73 75 62 73 68 65 |ut to th|e subshe|
|00001460| 6c 6c 2c 20 69 6e 63 6c | 75 64 69 6e 67 20 61 20 |ll, incl|uding a |
|00001470| 6e 65 77 6c 69 6e 65 20 | 69 6e 73 65 72 74 65 64 |newline |inserted|
|00001480| 20 61 74 20 74 68 65 20 | 65 6e 64 2e 0a 57 68 65 | at the |end..Whe|
|00001490| 6e 20 6e 6f 74 20 61 74 | 20 65 6e 64 2c 20 63 6f |n not at| end, co|
|000014a0| 70 69 65 73 20 63 75 72 | 72 65 6e 74 20 6c 69 6e |pies cur|rent lin|
|000014b0| 65 20 74 6f 20 74 68 65 | 20 65 6e 64 20 6f 66 20 |e to the| end of |
|000014c0| 74 68 65 20 62 75 66 66 | 65 72 20 61 6e 64 20 73 |the buff|er and s|
|000014d0| 65 6e 64 73 20 69 74 2c | 0a 61 66 74 65 72 20 66 |ends it,|.after f|
|000014e0| 69 72 73 74 20 61 74 74 | 65 6d 70 74 69 6e 67 20 |irst att|empting |
|000014f0| 74 6f 20 64 69 73 63 61 | 72 64 20 61 6e 79 20 70 |to disca|rd any p|
|00001500| 72 6f 6d 70 74 20 61 74 | 20 74 68 65 20 62 65 67 |rompt at| the beg|
|00001510| 69 6e 6e 69 6e 67 20 6f | 66 20 74 68 65 20 6c 69 |inning o|f the li|
|00001520| 6e 65 0a 62 79 20 6d 61 | 74 63 68 69 6e 67 20 74 |ne.by ma|tching t|
|00001530| 68 65 20 72 65 67 65 78 | 70 20 74 68 61 74 20 69 |he regex|p that i|
|00001540| 73 20 74 68 65 20 76 61 | 6c 75 65 20 6f 66 20 73 |s the va|lue of s|
|00001550| 68 65 6c 6c 2d 70 72 6f | 6d 70 74 2d 70 61 74 74 |hell-pro|mpt-patt|
|00001560| 65 72 6e 20 69 66 20 70 | 6f 73 73 69 62 6c 65 2e |ern if p|ossible.|
|00001570| 0a 54 68 69 73 20 72 65 | 67 65 78 70 20 73 68 6f |.This re|gexp sho|
|00001580| 75 6c 64 20 73 74 61 72 | 74 20 77 69 74 68 20 5c |uld star|t with \|
|00001590| 22 5e 5c 22 2e 22 20 28 | 69 6e 74 65 72 61 63 74 |"^\"." (|interact|
|000015a0| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|000015b0| 22 c6 88 c7 70 21 86 0b | 00 c8 c9 21 88 ca 20 88 |"...p!..|...!.. .|
|000015c0| 6d 83 26 00 cb 08 cc c7 | 70 21 21 5c 22 88 cd 63 |m.&.....|p!!\"..c|
|000015d0| 88 cb 09 60 5c 22 82 4d | 00 ce 20 88 cf 0a 8a ca |...`\".M|.. .....|
|000015e0| 20 88 60 29 c3 23 88 d0 | 60 d1 d2 21 88 60 5c 22 | .`).#..|`..!.`\"|
|000015f0| 1c 64 62 88 cb 08 60 5c | 22 88 0c 63 88 cb 09 60 |.db...`\|"..c...`|
|00001600| 5c 22 29 88 c6 d3 d4 8f | 88 c7 70 21 1d d5 0d 08 |\").....|..p!....|
|00001610| 09 23 88 d6 cc 0d 21 60 | 5c 22 29 87 22 20 5b 6c |.#....!`|\")." [l|
|00001620| 61 73 74 2d 69 6e 70 75 | 74 2d 73 74 61 72 74 20 |ast-inpu|t-start |
|00001630| 6c 61 73 74 2d 69 6e 70 | 75 74 2d 65 6e 64 20 73 |last-inp|ut-end s|
|00001640| 68 65 6c 6c 2d 70 72 6f | 6d 70 74 2d 70 61 74 74 |hell-pro|mpt-patt|
|00001650| 65 72 6e 20 74 20 63 6f | 70 79 20 70 72 6f 63 65 |ern t co|py proce|
|00001660| 73 73 20 6e 69 6c 20 67 | 65 74 2d 62 75 66 66 65 |ss nil g|et-buffe|
|00001670| 72 2d 70 72 6f 63 65 73 | 73 20 65 72 72 6f 72 20 |r-proces|s error |
|00001680| 22 43 75 72 72 65 6e 74 | 20 62 75 66 66 65 72 20 |"Current| buffer |
|00001690| 68 61 73 20 6e 6f 20 70 | 72 6f 63 65 73 73 22 20 |has no p|rocess" |
|000016a0| 65 6e 64 2d 6f 66 2d 6c | 69 6e 65 20 6d 6f 76 65 |end-of-l|ine move|
|000016b0| 2d 6d 61 72 6b 65 72 20 | 70 72 6f 63 65 73 73 2d |-marker |process-|
|000016c0| 6d 61 72 6b 20 31 30 20 | 62 65 67 69 6e 6e 69 6e |mark 10 |beginnin|
|000016d0| 67 2d 6f 66 2d 6c 69 6e | 65 20 72 65 2d 73 65 61 |g-of-lin|e re-sea|
|000016e0| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 62 75 66 66 |rch-forw|ard buff|
|000016f0| 65 72 2d 73 75 62 73 74 | 72 69 6e 67 20 66 6f 72 |er-subst|ring for|
|00001700| 77 61 72 64 2d 6c 69 6e | 65 20 31 20 28 62 79 74 |ward-lin|e 1 (byt|
|00001710| 65 2d 63 6f 64 65 20 22 | 8a 08 62 88 c1 20 29 87 |e-code "|..b.. ).|
|00001720| 22 20 5b 6c 61 73 74 2d | 69 6e 70 75 74 2d 73 74 |" [last-|input-st|
|00001730| 61 72 74 20 73 68 65 6c | 6c 2d 73 65 74 2d 64 69 |art shel|l-set-di|
|00001740| 72 65 63 74 6f 72 79 5d | 20 32 29 20 28 28 65 72 |rectory]| 2) ((er|
|00001750| 72 6f 72 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ror (byt|e-code "|
|00001760| c1 08 21 87 22 20 5b 73 | 68 65 6c 6c 2d 73 65 74 |..!." [s|hell-set|
|00001770| 2d 64 69 72 65 63 74 6f | 72 79 2d 65 72 72 6f 72 |-directo|ry-error|
|00001780| 2d 68 6f 6f 6b 20 66 75 | 6e 63 61 6c 6c 5d 20 32 |-hook fu|ncall] 2|
|00001790| 29 29 29 20 70 72 6f 63 | 65 73 73 2d 73 65 6e 64 |))) proc|ess-send|
|000017a0| 2d 72 65 67 69 6f 6e 20 | 73 65 74 2d 6d 61 72 6b |-region |set-mark|
|000017b0| 65 72 5d 20 32 30 29 29 | 0a 0a 28 64 65 66 75 6e |er] 20))|..(defun|
|000017c0| 20 73 68 65 6c 6c 2d 73 | 65 74 2d 64 69 72 65 63 | shell-s|et-direc|
|000017d0| 74 6f 72 79 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |tory nil| (byte-c|
|000017e0| 6f 64 65 20 22 c7 08 21 | 85 0c 00 c8 c9 21 66 ca |ode "..!|.....!f.|
|000017f0| 3e 83 1f 00 09 85 1c 00 | cb 09 40 21 88 09 41 89 |>.......|..@!..A.|
|00001800| 11 82 b8 00 c7 0a 21 83 | 76 00 c8 c9 21 66 cc 3e |......!.|v...!f.>|
|00001810| 83 43 00 09 85 40 00 0c | 1b cb 09 40 21 88 0b 09 |.C...@..|...@!...|
|00001820| 41 42 89 11 29 82 73 00 | c8 c9 21 66 cd 3e 85 73 |AB..).s.|..!f.>.s|
|00001830| 00 ce 1d cf d0 21 88 cf | d1 21 88 d2 d3 d4 d5 60 |.....!..|.!.....`|
|00001840| cf d6 21 88 60 5c 22 21 | 21 89 15 21 85 72 00 0c |..!.`\"!|!..!.r..|
|00001850| 09 42 89 11 88 cb 0d 21 | 29 82 b8 00 c7 0e 06 21 |.B.....!|)......!|
|00001860| 85 b8 00 c8 c9 21 66 d7 | 3e 83 8e 00 cb d8 d9 21 |.....!f.|>......!|
|00001870| 21 82 b8 00 c8 c9 21 66 | da 3e 85 b8 00 ce 1d db |!.....!f|.>......|
|00001880| dc 21 88 cf d1 21 88 d2 | d3 d4 d5 60 cf d6 21 88 |.!...!..|...`..!.|
|00001890| 60 5c 22 21 21 89 15 21 | 85 b7 00 cb 0d 21 29 87 |`\"!!..!|.....!).|
|000018a0| 22 20 5b 73 68 65 6c 6c | 2d 70 6f 70 64 2d 72 65 |" [shell|-popd-re|
|000018b0| 67 65 78 70 20 73 68 65 | 6c 6c 2d 64 69 72 65 63 |gexp she|ll-direc|
|000018c0| 74 6f 72 79 2d 73 74 61 | 63 6b 20 73 68 65 6c 6c |tory-sta|ck shell|
|000018d0| 2d 70 75 73 68 64 2d 72 | 65 67 65 78 70 20 6f 6c |-pushd-r|egexp ol|
|000018e0| 64 20 64 65 66 61 75 6c | 74 2d 64 69 72 65 63 74 |d defaul|t-direct|
|000018f0| 6f 72 79 20 64 69 72 20 | 73 68 65 6c 6c 2d 63 64 |ory dir |shell-cd|
|00001900| 2d 72 65 67 65 78 70 20 | 6c 6f 6f 6b 69 6e 67 2d |-regexp |looking-|
|00001910| 61 74 20 6d 61 74 63 68 | 2d 65 6e 64 20 30 20 28 |at match|-end 0 (|
|00001920| 35 39 20 31 30 29 20 63 | 64 20 28 35 39 20 31 30 |59 10) c|d (59 10|
|00001930| 29 20 28 33 32 20 39 29 | 20 6e 69 6c 20 73 6b 69 |) (32 9)| nil ski|
|00001940| 70 2d 63 68 61 72 73 2d | 66 6f 72 77 61 72 64 20 |p-chars-|forward |
|00001950| 22 5e 20 22 20 22 20 09 | 22 20 66 69 6c 65 2d 64 |"^ " " .|" file-d|
|00001960| 69 72 65 63 74 6f 72 79 | 2d 70 20 65 78 70 61 6e |irectory|-p expan|
|00001970| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 73 75 62 73 |d-file-n|ame subs|
|00001980| 74 69 74 75 74 65 2d 69 | 6e 2d 66 69 6c 65 2d 6e |titute-i|n-file-n|
|00001990| 61 6d 65 20 62 75 66 66 | 65 72 2d 73 75 62 73 74 |ame buff|er-subst|
|000019a0| 72 69 6e 67 20 22 5e 0a | 20 09 3b 22 20 28 35 39 |ring "^.| .;" (59|
|000019b0| 20 31 30 29 20 67 65 74 | 65 6e 76 20 22 48 4f 4d | 10) get|env "HOM|
|000019c0| 45 22 20 28 33 32 20 39 | 29 20 66 6f 72 77 61 72 |E" (32 9|) forwar|
|000019d0| 64 2d 63 68 61 72 20 33 | 5d 20 32 39 29 29 0a 0a |d-char 3|] 29))..|
|000019e0| 28 64 65 66 75 6e 20 73 | 68 65 6c 6c 2d 73 65 6e |(defun s|hell-sen|
|000019f0| 64 2d 65 6f 66 20 6e 69 | 6c 20 22 5c 0a 53 65 6e |d-eof ni|l "\.Sen|
|00001a00| 64 20 65 6f 66 20 74 6f | 20 73 75 62 73 68 65 6c |d eof to| subshel|
|00001a10| 6c 20 28 6f 72 20 74 6f | 20 74 68 65 20 70 72 6f |l (or to| the pro|
|00001a20| 67 72 61 6d 20 72 75 6e | 6e 69 6e 67 20 75 6e 64 |gram run|ning und|
|00001a30| 65 72 20 69 74 29 2e 22 | 20 28 69 6e 74 65 72 61 |er it)."| (intera|
|00001a40| 63 74 69 76 65 29 20 28 | 62 79 74 65 2d 63 6f 64 |ctive) (|byte-cod|
|00001a50| 65 20 22 c0 88 c1 20 87 | 22 20 5b 6e 69 6c 20 70 |e "... .|" [nil p|
|00001a60| 72 6f 63 65 73 73 2d 73 | 65 6e 64 2d 65 6f 66 5d |rocess-s|end-eof]|
|00001a70| 20 32 29 29 0a 0a 28 64 | 65 66 75 6e 20 6b 69 6c | 2))..(d|efun kil|
|00001a80| 6c 2d 6f 75 74 70 75 74 | 2d 66 72 6f 6d 2d 73 68 |l-output|-from-sh|
|00001a90| 65 6c 6c 20 6e 69 6c 20 | 22 5c 0a 4b 69 6c 6c 20 |ell nil |"\.Kill |
|00001aa0| 61 6c 6c 20 6f 75 74 70 | 75 74 20 66 72 6f 6d 20 |all outp|ut from |
|00001ab0| 73 68 65 6c 6c 20 73 69 | 6e 63 65 20 6c 61 73 74 |shell si|nce last|
|00001ac0| 20 69 6e 70 75 74 2e 22 | 20 28 69 6e 74 65 72 61 | input."| (intera|
|00001ad0| 63 74 69 76 65 29 20 28 | 62 79 74 65 2d 63 6f 64 |ctive) (|byte-cod|
|00001ae0| 65 20 22 c1 88 64 62 88 | c2 20 88 c3 08 60 5c 22 |e "..db.|. ...`\"|
|00001af0| 88 c4 63 88 64 62 87 22 | 20 5b 6c 61 73 74 2d 69 |..c.db."| [last-i|
|00001b00| 6e 70 75 74 2d 65 6e 64 | 20 6e 69 6c 20 62 65 67 |nput-end| nil beg|
|00001b10| 69 6e 6e 69 6e 67 2d 6f | 66 2d 6c 69 6e 65 20 6b |inning-o|f-line k|
|00001b20| 69 6c 6c 2d 72 65 67 69 | 6f 6e 20 22 2a 2a 2a 20 |ill-regi|on "*** |
|00001b30| 6f 75 74 70 75 74 20 66 | 6c 75 73 68 65 64 20 2a |output f|lushed *|
|00001b40| 2a 2a 0a 22 5d 20 34 29 | 29 0a 0a 28 64 65 66 75 |**."] 4)|)..(defu|
|00001b50| 6e 20 73 68 6f 77 2d 6f | 75 74 70 75 74 2d 66 72 |n show-o|utput-fr|
|00001b60| 6f 6d 2d 73 68 65 6c 6c | 20 6e 69 6c 20 22 5c 0a |om-shell| nil "\.|
|00001b70| 44 69 73 70 6c 61 79 20 | 73 74 61 72 74 20 6f 66 |Display |start of|
|00001b80| 20 74 68 69 73 20 62 61 | 74 63 68 20 6f 66 20 73 | this ba|tch of s|
|00001b90| 68 65 6c 6c 20 6f 75 74 | 70 75 74 20 61 74 20 74 |hell out|put at t|
|00001ba0| 6f 70 20 6f 66 20 77 69 | 6e 64 6f 77 2e 0a 41 6c |op of wi|ndow..Al|
|00001bb0| 73 6f 20 70 75 74 20 63 | 75 72 73 6f 72 20 74 68 |so put c|ursor th|
|00001bc0| 65 72 65 2e 22 20 28 69 | 6e 74 65 72 61 63 74 69 |ere." (i|nteracti|
|00001bd0| 76 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve) (byt|e-code "|
|00001be0| c1 88 c2 c3 20 08 5c 22 | 88 08 62 87 22 20 5b 6c |.... .\"|..b." [l|
|00001bf0| 61 73 74 2d 69 6e 70 75 | 74 2d 65 6e 64 20 6e 69 |ast-inpu|t-end ni|
|00001c00| 6c 20 73 65 74 2d 77 69 | 6e 64 6f 77 2d 73 74 61 |l set-wi|ndow-sta|
|00001c10| 72 74 20 73 65 6c 65 63 | 74 65 64 2d 77 69 6e 64 |rt selec|ted-wind|
|00001c20| 6f 77 5d 20 34 29 29 0a | 0a 28 64 65 66 75 6e 20 |ow] 4)).|.(defun |
|00001c30| 63 6f 70 79 2d 6c 61 73 | 74 2d 73 68 65 6c 6c 2d |copy-las|t-shell-|
|00001c40| 69 6e 70 75 74 20 6e 69 | 6c 20 22 5c 0a 43 6f 70 |input ni|l "\.Cop|
|00001c50| 79 20 70 72 65 76 69 6f | 75 73 20 73 68 65 6c 6c |y previo|us shell|
|00001c60| 20 69 6e 70 75 74 2c 20 | 73 61 6e 73 20 6e 65 77 | input, |sans new|
|00001c70| 6c 69 6e 65 2c 20 61 6e | 64 20 69 6e 73 65 72 74 |line, an|d insert|
|00001c80| 20 62 65 66 6f 72 65 20 | 70 6f 69 6e 74 2e 22 20 | before |point." |
|00001c90| 28 69 6e 74 65 72 61 63 | 74 69 76 65 29 20 28 62 |(interac|tive) (b|
|00001ca0| 79 74 65 2d 63 6f 64 65 | 20 22 c2 88 c3 08 09 5c |yte-code| ".....\|
|00001cb0| 22 63 88 c4 c5 21 87 22 | 20 5b 6c 61 73 74 2d 69 |"c...!."| [last-i|
|00001cc0| 6e 70 75 74 2d 65 6e 64 | 20 6c 61 73 74 2d 69 6e |nput-end| last-in|
|00001cd0| 70 75 74 2d 73 74 61 72 | 74 20 6e 69 6c 20 62 75 |put-star|t nil bu|
|00001ce0| 66 66 65 72 2d 73 75 62 | 73 74 72 69 6e 67 20 64 |ffer-sub|string d|
|00001cf0| 65 6c 65 74 65 2d 63 68 | 61 72 20 2d 31 5d 20 33 |elete-ch|ar -1] 3|
|00001d00| 29 29 0a 0a 28 64 65 66 | 75 6e 20 69 6e 74 65 72 |))..(def|un inter|
|00001d10| 72 75 70 74 2d 73 68 65 | 6c 6c 2d 73 75 62 6a 6f |rupt-she|ll-subjo|
|00001d20| 62 20 6e 69 6c 20 22 5c | 0a 49 6e 74 65 72 72 75 |b nil "\|.Interru|
|00001d30| 70 74 20 74 68 69 73 20 | 73 68 65 6c 6c 27 73 20 |pt this |shell's |
|00001d40| 63 75 72 72 65 6e 74 20 | 73 75 62 6a 6f 62 2e 22 |current |subjob."|
|00001d50| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 29 20 28 | (intera|ctive) (|
|00001d60| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 88 c2 c0 c1 |byte-cod|e ".....|
|00001d70| 5c 22 87 22 20 5b 6e 69 | 6c 20 74 20 69 6e 74 65 |\"." [ni|l t inte|
|00001d80| 72 72 75 70 74 2d 70 72 | 6f 63 65 73 73 5d 20 33 |rrupt-pr|ocess] 3|
|00001d90| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6b 69 6c 6c 2d |))..(def|un kill-|
|00001da0| 73 68 65 6c 6c 2d 73 75 | 62 6a 6f 62 20 6e 69 6c |shell-su|bjob nil|
|00001db0| 20 22 5c 0a 53 65 6e 64 | 20 6b 69 6c 6c 20 73 69 | "\.Send| kill si|
|00001dc0| 67 6e 61 6c 20 74 6f 20 | 74 68 69 73 20 73 68 65 |gnal to |this she|
|00001dd0| 6c 6c 27 73 20 63 75 72 | 72 65 6e 74 20 73 75 62 |ll's cur|rent sub|
|00001de0| 6a 6f 62 2e 22 20 28 69 | 6e 74 65 72 61 63 74 69 |job." (i|nteracti|
|00001df0| 76 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve) (byt|e-code "|
|00001e00| c0 88 c2 c0 c1 5c 22 87 | 22 20 5b 6e 69 6c 20 74 |.....\".|" [nil t|
|00001e10| 20 6b 69 6c 6c 2d 70 72 | 6f 63 65 73 73 5d 20 33 | kill-pr|ocess] 3|
|00001e20| 29 29 0a 0a 28 64 65 66 | 75 6e 20 71 75 69 74 2d |))..(def|un quit-|
|00001e30| 73 68 65 6c 6c 2d 73 75 | 62 6a 6f 62 20 6e 69 6c |shell-su|bjob nil|
|00001e40| 20 22 5c 0a 53 65 6e 64 | 20 71 75 69 74 20 73 69 | "\.Send| quit si|
|00001e50| 67 6e 61 6c 20 74 6f 20 | 74 68 69 73 20 73 68 65 |gnal to |this she|
|00001e60| 6c 6c 27 73 20 63 75 72 | 72 65 6e 74 20 73 75 62 |ll's cur|rent sub|
|00001e70| 6a 6f 62 2e 22 20 28 69 | 6e 74 65 72 61 63 74 69 |job." (i|nteracti|
|00001e80| 76 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve) (byt|e-code "|
|00001e90| c0 88 c2 c0 c1 5c 22 87 | 22 20 5b 6e 69 6c 20 74 |.....\".|" [nil t|
|00001ea0| 20 71 75 69 74 2d 70 72 | 6f 63 65 73 73 5d 20 33 | quit-pr|ocess] 3|
|00001eb0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 73 74 6f 70 2d |))..(def|un stop-|
|00001ec0| 73 68 65 6c 6c 2d 73 75 | 62 6a 6f 62 20 6e 69 6c |shell-su|bjob nil|
|00001ed0| 20 22 5c 0a 53 74 6f 70 | 20 74 68 69 73 20 73 68 | "\.Stop| this sh|
|00001ee0| 65 6c 6c 27 73 20 63 75 | 72 72 65 6e 74 20 73 75 |ell's cu|rrent su|
|00001ef0| 62 6a 6f 62 2e 22 20 28 | 69 6e 74 65 72 61 63 74 |bjob." (|interact|
|00001f00| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|00001f10| 22 c0 88 c2 c0 c1 5c 22 | 87 22 20 5b 6e 69 6c 20 |".....\"|." [nil |
|00001f20| 74 20 73 74 6f 70 2d 70 | 72 6f 63 65 73 73 5d 20 |t stop-p|rocess] |
|00001f30| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 6b 69 6c 6c |3))..(de|fun kill|
|00001f40| 2d 73 68 65 6c 6c 2d 69 | 6e 70 75 74 20 6e 69 6c |-shell-i|nput nil|
|00001f50| 20 22 5c 0a 4b 69 6c 6c | 20 61 6c 6c 20 74 65 78 | "\.Kill| all tex|
|00001f60| 74 20 73 69 6e 63 65 20 | 6c 61 73 74 20 73 74 75 |t since |last stu|
|00001f70| 66 66 20 6f 75 74 70 75 | 74 20 62 79 20 74 68 65 |ff outpu|t by the|
|00001f80| 20 73 68 65 6c 6c 20 6f | 72 20 69 74 73 20 73 75 | shell o|r its su|
|00001f90| 62 6a 6f 62 73 2e 22 20 | 28 69 6e 74 65 72 61 63 |bjobs." |(interac|
|00001fa0| 74 69 76 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tive) (b|yte-code|
|00001fb0| 20 22 c0 88 c1 c2 c3 70 | 21 21 60 5c 22 87 22 20 | ".....p|!!`\"." |
|00001fc0| 5b 6e 69 6c 20 6b 69 6c | 6c 2d 72 65 67 69 6f 6e |[nil kil|l-region|
|00001fd0| 20 70 72 6f 63 65 73 73 | 2d 6d 61 72 6b 20 67 65 | process|-mark ge|
|00001fe0| 74 2d 62 75 66 66 65 72 | 2d 70 72 6f 63 65 73 73 |t-buffer|-process|
|00001ff0| 5d 20 35 29 29 0a 0a 28 | 64 65 66 76 61 72 20 69 |] 5))..(|defvar i|
|00002000| 6e 66 65 72 69 6f 72 2d | 6c 69 73 70 2d 6d 6f 64 |nferior-|lisp-mod|
|00002010| 65 2d 6d 61 70 20 6e 69 | 6c 29 0a 0a 28 69 66 20 |e-map ni|l)..(if |
|00002020| 69 6e 66 65 72 69 6f 72 | 2d 6c 69 73 70 2d 6d 6f |inferior|-lisp-mo|
|00002030| 64 65 2d 6d 61 70 20 6e | 69 6c 20 28 73 65 74 71 |de-map n|il (setq|
|00002040| 20 69 6e 66 65 72 69 6f | 72 2d 6c 69 73 70 2d 6d | inferio|r-lisp-m|
|00002050| 6f 64 65 2d 6d 61 70 20 | 28 63 6f 70 79 2d 61 6c |ode-map |(copy-al|
|00002060| 69 73 74 20 73 68 65 6c | 6c 2d 6d 6f 64 65 2d 6d |ist shel|l-mode-m|
|00002070| 61 70 29 29 20 28 6c 69 | 73 70 2d 6d 6f 64 65 2d |ap)) (li|sp-mode-|
|00002080| 63 6f 6d 6d 61 6e 64 73 | 20 69 6e 66 65 72 69 6f |commands| inferio|
|00002090| 72 2d 6c 69 73 70 2d 6d | 6f 64 65 2d 6d 61 70 29 |r-lisp-m|ode-map)|
|000020a0| 20 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 69 6e 66 | (define|-key inf|
|000020b0| 65 72 69 6f 72 2d 6c 69 | 73 70 2d 6d 6f 64 65 2d |erior-li|sp-mode-|
|000020c0| 6d 61 70 20 22 1b 18 22 | 20 28 71 75 6f 74 65 20 |map ".."| (quote |
|000020d0| 6c 69 73 70 2d 73 65 6e | 64 2d 64 65 66 75 6e 29 |lisp-sen|d-defun)|
|000020e0| 29 29 0a 0a 28 64 65 66 | 76 61 72 20 69 6e 66 65 |))..(def|var infe|
|000020f0| 72 69 6f 72 2d 6c 69 73 | 70 2d 70 72 6f 67 72 61 |rior-lis|p-progra|
|00002100| 6d 20 22 6c 69 73 70 22 | 20 22 5c 0a 2a 50 72 6f |m "lisp"| "\.*Pro|
|00002110| 67 72 61 6d 20 6e 61 6d | 65 20 66 6f 72 20 69 6e |gram nam|e for in|
|00002120| 76 6f 6b 69 6e 67 20 61 | 6e 20 69 6e 66 65 72 69 |voking a|n inferi|
|00002130| 6f 72 20 4c 69 73 70 20 | 77 69 74 68 20 60 72 75 |or Lisp |with `ru|
|00002140| 6e 2d 6c 69 73 70 27 2e | 22 29 0a 0a 28 64 65 66 |n-lisp'.|")..(def|
|00002150| 76 61 72 20 69 6e 66 65 | 72 69 6f 72 2d 6c 69 73 |var infe|rior-lis|
|00002160| 70 2d 6c 6f 61 64 2d 63 | 6f 6d 6d 61 6e 64 20 22 |p-load-c|ommand "|
|00002170| 28 6c 6f 61 64 20 5c 22 | 25 73 5c 22 29 0a 22 20 |(load \"|%s\")." |
|00002180| 22 2a 46 6f 72 6d 61 74 | 2d 73 74 72 69 6e 67 20 |"*Format|-string |
|00002190| 66 6f 72 20 62 75 69 6c | 64 69 6e 67 20 61 20 4c |for buil|ding a L|
|000021a0| 69 73 70 20 65 78 70 72 | 65 73 73 69 6f 6e 20 74 |isp expr|ession t|
|000021b0| 6f 20 6c 6f 61 64 20 61 | 20 66 69 6c 65 2e 0a 54 |o load a| file..T|
|000021c0| 68 69 73 20 66 6f 72 6d | 61 74 20 73 74 72 69 6e |his form|at strin|
|000021d0| 67 20 73 68 6f 75 6c 64 | 20 75 73 65 20 25 73 20 |g should| use %s |
|000021e0| 74 6f 20 73 75 62 73 74 | 69 74 75 74 65 20 61 20 |to subst|itute a |
|000021f0| 66 69 6c 65 20 6e 61 6d | 65 0a 61 6e 64 20 73 68 |file nam|e.and sh|
|00002200| 6f 75 6c 64 20 72 65 73 | 75 6c 74 20 69 6e 20 61 |ould res|ult in a|
|00002210| 20 4c 69 73 70 20 65 78 | 70 72 65 73 73 69 6f 6e | Lisp ex|pression|
|00002220| 20 74 68 61 74 20 77 69 | 6c 6c 20 63 6f 6d 6d 61 | that wi|ll comma|
|00002230| 6e 64 20 74 68 65 20 69 | 6e 66 65 72 69 6f 72 20 |nd the i|nferior |
|00002240| 4c 69 73 70 0a 74 6f 20 | 6c 6f 61 64 20 74 68 61 |Lisp.to |load tha|
|00002250| 74 20 66 69 6c 65 2e 20 | 20 54 68 65 20 64 65 66 |t file. | The def|
|00002260| 61 75 6c 74 20 77 6f 72 | 6b 73 20 61 63 63 65 70 |ault wor|ks accep|
|00002270| 74 61 62 6c 79 20 6f 6e | 20 6d 6f 73 74 20 4c 69 |tably on| most Li|
|00002280| 73 70 73 2e 0a 54 68 65 | 20 73 74 72 69 6e 67 20 |sps..The| string |
|00002290| 5c 22 28 70 72 6f 67 6e | 20 28 6c 6f 61 64 20 5c |\"(progn| (load \|
|000022a0| 5c 5c 22 25 73 5c 5c 5c | 22 20 3a 76 65 72 62 6f |\\"%s\\\|" :verbo|
|000022b0| 73 65 20 6e 69 6c 20 3a | 70 72 69 6e 74 20 74 29 |se nil :|print t)|
|000022c0| 20 28 76 61 6c 75 65 73 | 29 29 5c 5c 0a 5c 22 0a | (values|))\\.\".|
|000022d0| 70 72 6f 64 75 63 65 73 | 20 63 6f 73 6d 65 74 69 |produces| cosmeti|
|000022e0| 63 61 6c 6c 79 20 73 75 | 70 65 72 69 6f 72 20 6f |cally su|perior o|
|000022f0| 75 74 70 75 74 20 66 6f | 72 20 74 68 69 73 20 61 |utput fo|r this a|
|00002300| 70 70 6c 69 63 61 74 69 | 6f 6e 2c 0a 62 75 74 20 |pplicati|on,.but |
|00002310| 69 74 20 77 6f 72 6b 73 | 20 6f 6e 6c 79 20 69 6e |it works| only in|
|00002320| 20 43 6f 6d 6d 6f 6e 20 | 4c 69 73 70 2e 22 29 0a | Common |Lisp.").|
|00002330| 0a 28 64 65 66 76 61 72 | 20 69 6e 66 65 72 69 6f |.(defvar| inferio|
|00002340| 72 2d 6c 69 73 70 2d 70 | 72 6f 6d 70 74 20 22 5e |r-lisp-p|rompt "^|
|00002350| 2e 2a 3e 3a 3f 20 2a 24 | 22 20 22 5c 0a 2a 52 65 |.*>:? *$|" "\.*Re|
|00002360| 67 65 78 70 20 74 6f 20 | 72 65 63 6f 67 6e 69 7a |gexp to |recogniz|
|00002370| 65 20 70 72 6f 6d 70 74 | 73 20 66 72 6f 6d 20 74 |e prompt|s from t|
|00002380| 68 65 20 69 6e 66 65 72 | 69 6f 72 20 4c 69 73 70 |he infer|ior Lisp|
|00002390| 2e 0a 44 65 66 61 75 6c | 74 20 69 73 20 72 69 67 |..Defaul|t is rig|
|000023a0| 68 74 20 66 6f 72 20 46 | 72 61 6e 7a 20 4c 69 73 |ht for F|ranz Lis|
|000023b0| 70 20 61 6e 64 20 6b 63 | 6c 2e 22 29 0a 0a 28 64 |p and kc|l.")..(d|
|000023c0| 65 66 75 6e 20 69 6e 66 | 65 72 69 6f 72 2d 6c 69 |efun inf|erior-li|
|000023d0| 73 70 2d 6d 6f 64 65 20 | 6e 69 6c 20 22 5c 0a 4d |sp-mode |nil "\.M|
|000023e0| 61 6a 6f 72 20 6d 6f 64 | 65 20 66 6f 72 20 69 6e |ajor mod|e for in|
|000023f0| 74 65 72 61 63 74 69 6e | 67 20 77 69 74 68 20 61 |teractin|g with a|
|00002400| 6e 20 69 6e 66 65 72 69 | 6f 72 20 4c 69 73 70 20 |n inferi|or Lisp |
|00002410| 70 72 6f 63 65 73 73 2e | 0a 52 75 6e 73 20 61 20 |process.|.Runs a |
|00002420| 4c 69 73 70 20 69 6e 74 | 65 72 70 72 65 74 65 72 |Lisp int|erpreter|
|00002430| 20 61 73 20 61 20 73 75 | 62 70 72 6f 63 65 73 73 | as a su|bprocess|
|00002440| 20 6f 66 20 45 6d 61 63 | 73 2c 20 77 69 74 68 20 | of Emac|s, with |
|00002450| 4c 69 73 70 20 49 2f 4f | 0a 74 68 72 6f 75 67 68 |Lisp I/O|.through|
|00002460| 20 61 6e 20 45 6d 61 63 | 73 20 62 75 66 66 65 72 | an Emac|s buffer|
|00002470| 2e 20 20 56 61 72 69 61 | 62 6c 65 20 69 6e 66 65 |.  Varia|ble infe|
|00002480| 72 69 6f 72 2d 6c 69 73 | 70 2d 70 72 6f 67 72 61 |rior-lis|p-progra|
|00002490| 6d 20 63 6f 6e 74 72 6f | 6c 73 0a 77 68 69 63 68 |m contro|ls.which|
|000024a0| 20 4c 69 73 70 20 69 6e | 74 65 72 70 72 65 74 65 | Lisp in|terprete|
|000024b0| 72 20 69 73 20 72 75 6e | 2e 20 20 56 61 72 69 61 |r is run|.  Varia|
|000024c0| 62 6c 65 73 20 69 6e 66 | 65 72 69 6f 72 2d 6c 69 |bles inf|erior-li|
|000024d0| 73 70 2d 70 72 6f 6d 70 | 74 0a 61 6e 64 20 69 6e |sp-promp|t.and in|
|000024e0| 66 65 72 69 6f 72 2d 6c | 69 73 70 2d 6c 6f 61 64 |ferior-l|isp-load|
|000024f0| 2d 63 6f 6d 6d 61 6e 64 | 20 63 61 6e 20 63 75 73 |-command| can cus|
|00002500| 74 6f 6d 69 7a 65 20 74 | 68 69 73 20 6d 6f 64 65 |tomize t|his mode|
|00002510| 20 66 6f 72 20 64 69 66 | 66 65 72 65 6e 74 0a 4c | for dif|ferent.L|
|00002520| 69 73 70 20 69 6e 74 65 | 72 70 72 65 74 65 72 73 |isp inte|rpreters|
|00002530| 2e 0a 0a 43 6f 6d 6d 61 | 6e 64 73 3a 0a 44 45 4c |...Comma|nds:.DEL|
|00002540| 45 54 45 20 63 6f 6e 76 | 65 72 74 73 20 74 61 62 |ETE conv|erts tab|
|00002550| 73 20 74 6f 20 73 70 61 | 63 65 73 20 61 73 20 69 |s to spa|ces as i|
|00002560| 74 20 6d 6f 76 65 73 20 | 62 61 63 6b 2e 0a 54 41 |t moves |back..TA|
|00002570| 42 20 69 6e 64 65 6e 74 | 73 20 66 6f 72 20 4c 69 |B indent|s for Li|
|00002580| 73 70 3b 20 77 69 74 68 | 20 61 72 67 75 6d 65 6e |sp; with| argumen|
|00002590| 74 2c 20 73 68 69 66 74 | 73 20 72 65 73 74 0a 20 |t, shift|s rest. |
|000025a0| 6f 66 20 65 78 70 72 65 | 73 73 69 6f 6e 20 72 69 |of expre|ssion ri|
|000025b0| 67 69 64 6c 79 20 77 69 | 74 68 20 74 68 65 20 63 |gidly wi|th the c|
|000025c0| 75 72 72 65 6e 74 20 6c | 69 6e 65 2e 0a 4d 65 74 |urrent l|ine..Met|
|000025d0| 61 2d 43 6f 6e 74 72 6f | 6c 2d 51 20 64 6f 65 73 |a-Contro|l-Q does|
|000025e0| 20 54 41 42 20 6f 6e 20 | 65 61 63 68 20 6c 69 6e | TAB on |each lin|
|000025f0| 65 20 73 74 61 72 74 69 | 6e 67 20 77 69 74 68 69 |e starti|ng withi|
|00002600| 6e 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 65 78 70 72 |n follow|ing expr|
|00002610| 65 73 73 69 6f 6e 2e 0a | 50 61 72 61 67 72 61 70 |ession..|Paragrap|
|00002620| 68 73 20 61 72 65 20 73 | 65 70 61 72 61 74 65 64 |hs are s|eparated|
|00002630| 20 6f 6e 6c 79 20 62 79 | 20 62 6c 61 6e 6b 20 6c | only by| blank l|
|00002640| 69 6e 65 73 2e 20 20 53 | 65 6d 69 63 6f 6c 6f 6e |ines.  S|emicolon|
|00002650| 73 20 73 74 61 72 74 20 | 63 6f 6d 6d 65 6e 74 73 |s start |comments|
|00002660| 2e 0a 0a 52 65 74 75 72 | 6e 20 61 74 20 65 6e 64 |...Retur|n at end|
|00002670| 20 6f 66 20 62 75 66 66 | 65 72 20 73 65 6e 64 73 | of buff|er sends|
|00002680| 20 6c 69 6e 65 20 61 73 | 20 69 6e 70 75 74 2e 0a | line as| input..|
|00002690| 52 65 74 75 72 6e 20 6e | 6f 74 20 61 74 20 65 6e |Return n|ot at en|
|000026a0| 64 20 63 6f 70 69 65 73 | 20 72 65 73 74 20 6f 66 |d copies| rest of|
|000026b0| 20 6c 69 6e 65 20 74 6f | 20 65 6e 64 20 61 6e 64 | line to| end and|
|000026c0| 20 73 65 6e 64 73 20 69 | 74 2e 0a 0a 54 68 65 20 | sends i|t...The |
|000026d0| 66 6f 6c 6c 6f 77 69 6e | 67 20 63 6f 6d 6d 61 6e |followin|g comman|
|000026e0| 64 73 20 69 6d 69 74 61 | 74 65 20 74 68 65 20 75 |ds imita|te the u|
|000026f0| 73 75 61 6c 20 55 6e 69 | 78 20 69 6e 74 65 72 72 |sual Uni|x interr|
|00002700| 75 70 74 20 61 6e 64 0a | 65 64 69 74 69 6e 67 20 |upt and.|editing |
|00002710| 63 6f 6e 74 72 6f 6c 20 | 63 68 61 72 61 63 74 65 |control |characte|
|00002720| 72 73 3a 0a 5c 5c 7b 73 | 68 65 6c 6c 2d 6d 6f 64 |rs:.\\{s|hell-mod|
|00002730| 65 2d 6d 61 70 7d 0a 0a | 45 6e 74 72 79 20 74 6f |e-map}..|Entry to|
|00002740| 20 74 68 69 73 20 6d 6f | 64 65 20 63 61 6c 6c 73 | this mo|de calls|
|00002750| 20 74 68 65 20 76 61 6c | 75 65 20 6f 66 20 6c 69 | the val|ue of li|
|00002760| 73 70 2d 6d 6f 64 65 2d | 68 6f 6f 6b 20 77 69 74 |sp-mode-|hook wit|
|00002770| 68 20 6e 6f 20 61 72 67 | 75 6d 65 6e 74 73 2c 0a |h no arg|uments,.|
|00002780| 69 66 20 74 68 61 74 20 | 76 61 6c 75 65 20 69 73 |if that |value is|
|00002790| 20 6e 6f 6e 2d 6e 69 6c | 2e 20 20 4c 69 6b 65 77 | non-nil|.  Likew|
|000027a0| 69 73 65 20 77 69 74 68 | 20 74 68 65 20 76 61 6c |ise with| the val|
|000027b0| 75 65 20 6f 66 20 73 68 | 65 6c 6c 2d 6d 6f 64 65 |ue of sh|ell-mode|
|000027c0| 2d 68 6f 6f 6b 2e 0a 6c | 69 73 70 2d 6d 6f 64 65 |-hook..l|isp-mode|
|000027d0| 2d 68 6f 6f 6b 20 69 73 | 20 63 61 6c 6c 65 64 20 |-hook is| called |
|000027e0| 61 66 74 65 72 20 73 68 | 65 6c 6c 2d 6d 6f 64 65 |after sh|ell-mode|
|000027f0| 2d 68 6f 6f 6b 2e 0a 0a | 59 6f 75 20 63 61 6e 20 |-hook...|You can |
|00002800| 73 65 6e 64 20 74 65 78 | 74 20 74 6f 20 74 68 65 |send tex|t to the|
|00002810| 20 69 6e 66 65 72 69 6f | 72 20 4c 69 73 70 20 66 | inferio|r Lisp f|
|00002820| 72 6f 6d 20 6f 74 68 65 | 72 20 62 75 66 66 65 72 |rom othe|r buffer|
|00002830| 73 0a 75 73 69 6e 67 20 | 74 68 65 20 63 6f 6d 6d |s.using |the comm|
|00002840| 61 6e 64 73 20 70 72 6f | 63 65 73 73 2d 73 65 6e |ands pro|cess-sen|
|00002850| 64 2d 72 65 67 69 6f 6e | 2c 20 70 72 6f 63 65 73 |d-region|, proces|
|00002860| 73 2d 73 65 6e 64 2d 73 | 74 72 69 6e 67 0a 61 6e |s-send-s|tring.an|
|00002870| 64 20 5c 5c 5b 6c 69 73 | 70 2d 73 65 6e 64 2d 64 |d \\[lis|p-send-d|
|00002880| 65 66 75 6e 5d 2e 22 20 | 28 69 6e 74 65 72 61 63 |efun]." |(interac|
|00002890| 74 69 76 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tive) (b|yte-code|
|000028a0| 20 22 c7 88 c8 20 88 c9 | 89 10 88 ca 89 11 88 cb | "... ..|........|
|000028b0| 89 12 88 cc c3 21 88 cd | 0c 21 88 ce c5 21 88 cf |.....!..|.!...!..|
|000028c0| 20 89 15 88 ce c6 21 88 | cf 20 89 16 06 88 d0 d1 | .....!.|. ......|
|000028d0| d2 5c 22 87 22 20 5b 6d | 61 6a 6f 72 2d 6d 6f 64 |.\"." [m|ajor-mod|
|000028e0| 65 20 6d 6f 64 65 2d 6e | 61 6d 65 20 6d 6f 64 65 |e mode-n|ame mode|
|000028f0| 2d 6c 69 6e 65 2d 70 72 | 6f 63 65 73 73 20 74 20 |-line-pr|ocess t |
|00002900| 69 6e 66 65 72 69 6f 72 | 2d 6c 69 73 70 2d 6d 6f |inferior|-lisp-mo|
|00002910| 64 65 2d 6d 61 70 20 6c | 61 73 74 2d 69 6e 70 75 |de-map l|ast-inpu|
|00002920| 74 2d 73 74 61 72 74 20 | 6c 61 73 74 2d 69 6e 70 |t-start |last-inp|
|00002930| 75 74 2d 65 6e 64 20 6e | 69 6c 20 6b 69 6c 6c 2d |ut-end n|il kill-|
|00002940| 61 6c 6c 2d 6c 6f 63 61 | 6c 2d 76 61 72 69 61 62 |all-loca|l-variab|
|00002950| 6c 65 73 20 69 6e 66 65 | 72 69 6f 72 2d 6c 69 73 |les infe|rior-lis|
|00002960| 70 2d 6d 6f 64 65 20 22 | 49 6e 66 65 72 69 6f 72 |p-mode "|Inferior|
|00002970| 20 4c 69 73 70 22 20 28 | 22 3a 20 25 73 22 29 20 | Lisp" (|": %s") |
|00002980| 6c 69 73 70 2d 6d 6f 64 | 65 2d 76 61 72 69 61 62 |lisp-mod|e-variab|
|00002990| 6c 65 73 20 75 73 65 2d | 6c 6f 63 61 6c 2d 6d 61 |les use-|local-ma|
|000029a0| 70 20 6d 61 6b 65 2d 6c | 6f 63 61 6c 2d 76 61 72 |p make-l|ocal-var|
|000029b0| 69 61 62 6c 65 20 6d 61 | 6b 65 2d 6d 61 72 6b 65 |iable ma|ke-marke|
|000029c0| 72 20 72 75 6e 2d 68 6f | 6f 6b 73 20 73 68 65 6c |r run-ho|oks shel|
|000029d0| 6c 2d 6d 6f 64 65 2d 68 | 6f 6f 6b 20 6c 69 73 70 |l-mode-h|ook lisp|
|000029e0| 2d 6d 6f 64 65 2d 68 6f | 6f 6b 5d 20 31 30 29 29 |-mode-ho|ok] 10))|
|000029f0| 0a 0a 28 64 65 66 75 6e | 20 72 75 6e 2d 6c 69 73 |..(defun| run-lis|
|00002a00| 70 20 6e 69 6c 20 22 5c | 0a 52 75 6e 20 61 6e 20 |p nil "\|.Run an |
|00002a10| 69 6e 66 65 72 69 6f 72 | 20 4c 69 73 70 20 70 72 |inferior| Lisp pr|
|00002a20| 6f 63 65 73 73 2c 20 69 | 6e 70 75 74 20 61 6e 64 |ocess, i|nput and|
|00002a30| 20 6f 75 74 70 75 74 20 | 76 69 61 20 62 75 66 66 | output |via buff|
|00002a40| 65 72 20 2a 6c 69 73 70 | 2a 2e 22 20 28 69 6e 74 |er *lisp|*." (int|
|00002a50| 65 72 61 63 74 69 76 65 | 29 20 28 62 79 74 65 2d |eractive|) (byte-|
|00002a60| 63 6f 64 65 20 22 c1 88 | c2 c3 c4 08 5c 22 21 88 |code "..|....\"!.|
|00002a70| c5 20 87 22 20 5b 69 6e | 66 65 72 69 6f 72 2d 6c |. ." [in|ferior-l|
|00002a80| 69 73 70 2d 70 72 6f 67 | 72 61 6d 20 6e 69 6c 20 |isp-prog|ram nil |
|00002a90| 73 77 69 74 63 68 2d 74 | 6f 2d 62 75 66 66 65 72 |switch-t|o-buffer|
|00002aa0| 20 6d 61 6b 65 2d 73 68 | 65 6c 6c 20 22 6c 69 73 | make-sh|ell "lis|
|00002ab0| 70 22 20 69 6e 66 65 72 | 69 6f 72 2d 6c 69 73 70 |p" infer|ior-lisp|
|00002ac0| 2d 6d 6f 64 65 5d 20 34 | 29 29 0a 0a 28 64 65 66 |-mode] 4|))..(def|
|00002ad0| 75 6e 20 6c 69 73 70 2d | 73 65 6e 64 2d 64 65 66 |un lisp-|send-def|
|00002ae0| 75 6e 20 28 64 69 73 70 | 6c 61 79 2d 66 6c 61 67 |un (disp|lay-flag|
|00002af0| 29 20 22 5c 0a 53 65 6e | 64 20 74 68 65 20 63 75 |) "\.Sen|d the cu|
|00002b00| 72 72 65 6e 74 20 64 65 | 66 75 6e 20 74 6f 20 74 |rrent de|fun to t|
|00002b10| 68 65 20 4c 69 73 70 20 | 70 72 6f 63 65 73 73 20 |he Lisp |process |
|00002b20| 6d 61 64 65 20 62 79 20 | 4d 2d 78 20 72 75 6e 2d |made by |M-x run-|
|00002b30| 6c 69 73 70 2e 0a 57 69 | 74 68 20 61 72 67 75 6d |lisp..Wi|th argum|
|00002b40| 65 6e 74 2c 20 66 6f 72 | 63 65 20 72 65 64 69 73 |ent, for|ce redis|
|00002b50| 70 6c 61 79 20 61 6e 64 | 20 73 63 72 6f 6c 6c 69 |play and| scrolli|
|00002b60| 6e 67 20 6f 66 20 74 68 | 65 20 2a 6c 69 73 70 2a |ng of th|e *lisp*|
|00002b70| 20 62 75 66 66 65 72 2e | 0a 56 61 72 69 61 62 6c | buffer.|.Variabl|
|00002b80| 65 20 60 69 6e 66 65 72 | 69 6f 72 2d 6c 69 73 70 |e `infer|ior-lisp|
|00002b90| 2d 6c 6f 61 64 2d 63 6f | 6d 6d 61 6e 64 27 20 63 |-load-co|mmand' c|
|00002ba0| 6f 6e 74 72 6f 6c 73 20 | 66 6f 72 6d 61 74 74 69 |ontrols |formatti|
|00002bb0| 6e 67 20 6f 66 0a 74 68 | 65 20 60 6c 6f 61 64 27 |ng of.th|e `load'|
|00002bc0| 20 66 6f 72 6d 20 74 68 | 61 74 20 69 73 20 73 65 | form th|at is se|
|00002bd0| 74 20 74 6f 20 74 68 65 | 20 4c 69 73 70 20 70 72 |t to the| Lisp pr|
|00002be0| 6f 63 65 73 73 2e 22 20 | 28 69 6e 74 65 72 61 63 |ocess." |(interac|
|00002bf0| 74 69 76 65 20 22 50 22 | 29 20 28 62 79 74 65 2d |tive "P"|) (byte-|
|00002c00| 63 6f 64 65 20 22 c2 88 | ca cb 21 86 0b 00 cc cd |code "..|..!.....|
|00002c10| 21 88 8a ce 20 88 60 cf | d0 d1 ca cb 21 21 5c 22 |!... .`.|....!!\"|
|00002c20| 19 18 d2 20 88 d3 60 08 | 09 c2 d4 25 88 d5 cb cf |... ..`.|...%....|
|00002c30| 0b 09 5c 22 5c 22 2a 88 | 0c 85 90 00 ca cb 21 1d |..\"\"*.|......!.|
|00002c40| d6 0d 21 1e 06 d7 0e 06 | 21 86 47 00 d8 0e 06 21 |..!.....|!.G....!|
|00002c50| 1e 07 d9 0e 07 21 1e 08 | c2 18 8a 0e 06 71 88 64 |.....!..|.....q.d|
|00002c60| 89 10 88 da 0d 21 88 64 | 62 88 db 20 88 64 08 55 |.....!.d|b.. .d.U|
|00002c70| 86 6f 00 dc 0e 09 21 3f | 85 77 00 c2 88 82 5a 00 |.o....!?|.w....Z.|
|00002c80| 88 64 89 10 88 dd de 0e | 08 5a 21 88 df 0e 07 60 |.d......|.Z!....`|
|00002c90| 5c 22 29 88 e0 0e 07 08 | 5c 22 2d 29 87 22 20 5b |\").....|\"-)." [|
|00002ca0| 65 6e 64 20 66 69 6c 65 | 6e 61 6d 65 20 6e 69 6c |end file|name nil|
|00002cb0| 20 69 6e 66 65 72 69 6f | 72 2d 6c 69 73 70 2d 6c | inferio|r-lisp-l|
|00002cc0| 6f 61 64 2d 63 6f 6d 6d | 61 6e 64 20 64 69 73 70 |oad-comm|and disp|
|00002cd0| 6c 61 79 2d 66 6c 61 67 | 20 70 72 6f 63 65 73 73 |lay-flag| process|
|00002ce0| 20 62 75 66 66 65 72 20 | 77 20 68 65 69 67 68 74 | buffer |w height|
|00002cf0| 20 69 6e 66 65 72 69 6f | 72 2d 6c 69 73 70 2d 70 | inferio|r-lisp-p|
|00002d00| 72 6f 6d 70 74 20 67 65 | 74 2d 70 72 6f 63 65 73 |rompt ge|t-proces|
|00002d10| 73 20 22 6c 69 73 70 22 | 20 65 72 72 6f 72 20 22 |s "lisp"| error "|
|00002d20| 4e 6f 20 63 75 72 72 65 | 6e 74 20 6c 69 73 70 20 |No curre|nt lisp |
|00002d30| 70 72 6f 63 65 73 73 22 | 20 65 6e 64 2d 6f 66 2d |process"| end-of-|
|00002d40| 64 65 66 75 6e 20 66 6f | 72 6d 61 74 20 22 2f 74 |defun fo|rmat "/t|
|00002d50| 6d 70 2f 65 6d 6c 69 73 | 70 25 64 22 20 70 72 6f |mp/emlis|p%d" pro|
|00002d60| 63 65 73 73 2d 69 64 20 | 62 65 67 69 6e 6e 69 6e |cess-id |beginnin|
|00002d70| 67 2d 6f 66 2d 64 65 66 | 75 6e 20 77 72 69 74 65 |g-of-def|un write|
|00002d80| 2d 72 65 67 69 6f 6e 20 | 6e 6f 6d 65 73 73 61 67 |-region |nomessag|
|00002d90| 65 20 70 72 6f 63 65 73 | 73 2d 73 65 6e 64 2d 73 |e proces|s-send-s|
|00002da0| 74 72 69 6e 67 20 70 72 | 6f 63 65 73 73 2d 62 75 |tring pr|ocess-bu|
|00002db0| 66 66 65 72 20 67 65 74 | 2d 62 75 66 66 65 72 2d |ffer get|-buffer-|
|00002dc0| 77 69 6e 64 6f 77 20 64 | 69 73 70 6c 61 79 2d 62 |window d|isplay-b|
|00002dd0| 75 66 66 65 72 20 77 69 | 6e 64 6f 77 2d 68 65 69 |uffer wi|ndow-hei|
|00002de0| 67 68 74 20 61 63 63 65 | 70 74 2d 70 72 6f 63 65 |ght acce|pt-proce|
|00002df0| 73 73 2d 6f 75 74 70 75 | 74 20 62 65 67 69 6e 6e |ss-outpu|t beginn|
|00002e00| 69 6e 67 2d 6f 66 2d 6c | 69 6e 65 20 6c 6f 6f 6b |ing-of-l|ine look|
|00002e10| 69 6e 67 2d 61 74 20 76 | 65 72 74 69 63 61 6c 2d |ing-at v|ertical-|
|00002e20| 6d 6f 74 69 6f 6e 20 34 | 20 73 65 74 2d 77 69 6e |motion 4| set-win|
|00002e30| 64 6f 77 2d 73 74 61 72 | 74 20 73 65 74 2d 77 69 |dow-star|t set-wi|
|00002e40| 6e 64 6f 77 2d 70 6f 69 | 6e 74 5d 20 32 33 29 29 |ndow-poi|nt] 23))|
|00002e50| 0a 0a 28 64 65 66 75 6e | 20 6c 69 73 70 2d 73 65 |..(defun| lisp-se|
|00002e60| 6e 64 2d 64 65 66 75 6e | 2d 61 6e 64 2d 67 6f 20 |nd-defun|-and-go |
|00002e70| 6e 69 6c 20 22 5c 0a 53 | 65 6e 64 20 74 68 65 20 |nil "\.S|end the |
|00002e80| 63 75 72 72 65 6e 74 20 | 64 65 66 75 6e 20 74 6f |current |defun to|
|00002e90| 20 74 68 65 20 69 6e 66 | 65 72 69 6f 72 20 4c 69 | the inf|erior Li|
|00002ea0| 73 70 2c 20 61 6e 64 20 | 73 77 69 74 63 68 20 74 |sp, and |switch t|
|00002eb0| 6f 20 2a 6c 69 73 70 2a | 20 62 75 66 66 65 72 2e |o *lisp*| buffer.|
|00002ec0| 22 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 29 20 |" (inter|active) |
|00002ed0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 c1 c0 |(byte-co|de "....|
|00002ee0| 21 88 c2 c3 21 87 22 20 | 5b 6e 69 6c 20 6c 69 73 |!...!." |[nil lis|
|00002ef0| 70 2d 73 65 6e 64 2d 64 | 65 66 75 6e 20 73 77 69 |p-send-d|efun swi|
|00002f00| 74 63 68 2d 74 6f 2d 62 | 75 66 66 65 72 20 22 2a |tch-to-b|uffer "*|
|00002f10| 6c 69 73 70 2a 22 5d 20 | 33 29 29 0a 00 00 00 00 |lisp*"] |3)).....|
|00002f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f80| 00 00 01 00 00 00 01 0a | 00 00 00 0a 00 00 00 32 |........|.......2|
|00002f90| 00 00 b4 f2 00 04 03 b7 | 00 04 00 00 00 00 00 00 |........|........|
|00002fa0| 00 00 07 ff 00 00 b4 f6 | 00 28 16 30 00 30 16 90 |........|.(.0.0..|
|00002fb0| 09 73 68 65 6c 6c 2e 65 | 6c 63 02 00 00 00 64 45 |.shell.e|lc....dE|
|00002fc0| 4c 43 45 4d 41 43 01 00 | 04 ac 00 80 00 00 00 00 |LCEMAC..|........|
|00002fd0| 00 00 64 45 4c 43 45 4d | 41 43 01 00 04 ac 00 80 |..dELCEM|AC......|
|00002fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ff0| 00 00 a9 84 2c d9 00 00 | 2e 9c 00 00 01 3c 16 f2 |....,...|.....<..|
|00003000| 00 03 16 f8 00 02 07 ff | 00 00 b4 f6 00 83 16 fe |........|........|
|00003010| 00 01 17 0d 00 01 17 0f | 00 06 07 ff 00 00 b4 f6 |........|........|
|00003020| 00 8b 17 19 00 0c 17 36 | 00 02 17 42 00 01 07 ff |.......6|...B....|
|00003030| 00 00 b4 f6 00 9a 17 59 | 00 07 17 7a 00 09 17 84 |.......Y|...z....|
|00003040| 00 01 07 ff 00 00 b4 f6 | 00 ab 17 ed 00 02 17 fb |........|........|
|00003050| 00 03 18 02 00 08 07 ff | 00 00 b4 f6 00 b8 18 0c |........|........|
|00003060| 00 05 18 1e 00 04 18 25 | 00 04 07 ff 00 00 b4 f6 |.......%|........|
|00003070| 00 b8 18 0c 00 05 18 1e | 00 04 18 25 00 04 07 ff |........|...%....|
|00003080| 00 00 00 06 05 45 6d 61 | 63 73 00 00 01 00 00 00 |.....Ema|cs......|
|00003090| 01 0a 00 00 00 0a 00 00 | 00 32 00 23 48 2c 06 9e |........|.2.#H,..|
|000030a0| 00 00 00 1c 00 32 00 00 | 53 54 52 20 00 00 00 0a |.....2..|STR ....|
|000030b0| bf f4 ff ff 00 00 00 00 | 00 29 8d 44 00 00 00 00 |........|.).D....|
|000030c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+